




























ijMtlB 


Henvendelse: 


- den ideelle PC-løsning 


SVF256SF 
SVI-640FH 
Priser excl. moms 


SVI-640FF 
X’PRESS 16 

- incl. MONOCHROM MONITOR 


SVI 

SPECTRAVIDEO 


OVERGÅRD ANDERSEN A/S 
Dampfærgevej 32 
2100 København® 

Telefon 0142 30 00 


INCL. DOS 2.11 
PA DANSK 









INDHOLDFORTEGNELSE 


OPLYSNINGER 


Indhold : 



side : 

Overgård Andersen 



2 

ODlvsninq k Leder. 



3 

Basic compiler til MSX 

1 

og 

2 4-5 

Fantasma fra Japan 



6-7 

Stands disketten 



8 

Golf af Claus B. 



8-9 

Obs! tydelig skrift !! 



9 

Midi interface 



10-13 

Svenska sidan 



14-15 

Brev fra Norge 



15 

Animation for MSX 2 og 

Mus 

16-18 

Grafik for MSX 2 



18-19 

SDil 15 til SVI af Claus 

B. 

19-20 

Køb/sal g & nye medlemmer 


21-22 

SVI BIB 



,23 

Basic med Peter 



24 

Brev fra ComDetter 



25-27 

MSX BIB 



28-29 

Kursiv skrift til DOS 



29 

Renter fra Henrik 



30-31 

Datacraft 



32 


Artikler, annoncer eller programmer 
der .emskes optaget i bladet, sendes 
til Kim Andersen eller Preben Lund 
Bånd og disk sendes retur. 


LEDER 

I den sidste tid har vi, gennem 
Johnny, haft en del kontakt med det 
tyske computerfirma HSH samt klub¬ 
ben MOS. 

Nu er MOS begyndt at lave et 
blad, THE MSX MAG, som, så vidt jeg 
er orienteret, udkommer 1 gang hver 
2. måned. Det interessante er imid¬ 
lertid at de har tilbudt os rettig¬ 
hederne til bladet, her i Danmark. 
Dvs. at vi i så fald kunne udvide 
vores blad med stof fra THE MSX 
MAG. Men den pris vi indtil videre 
har fået er så høj at det ville 
være fuldstændig urealistisk at 
sige ja tak - så indtil videre 
fortsætter Syntax'en status quo. 

Hvad der måske er endnu mere in¬ 
teressant er at HSH efterhånden har 
et meget bredt og godt udvalg af 
udstyr til MSX, og de nu er inter¬ 
esseret i at kommer mere ind på det 
nordiske marked, bl.a. med annoncer 
her i bladet. Det kan måske medvir¬ 
ke til en renæssance for MSX. 
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IMØQØ ØØKII?D Q.BB 

w d a Goøs ii øø a 

En BASIC compiler - det må være 
sagen for enhver hjemme-program¬ 
snedker , der sidder og fortvivler 
over BASICs begrænsninger mht. has¬ 
tighed. Og nu findes den i en PD 
(Public Domain) udgave på diskette 
til MSX1 og MSX2 med mindst 64 K. 
Til Danmark fra The Land of the 
Rising Hifi via en tysk MSX bruger¬ 
klub (detaljer hos Kurt von Surt) 
kommer..... 

MSX-BASIC-KUN (BASIC COMPILER) 

meget passende lavet af en fyr 
kaldet J. Suzuki. 


Er det så verdens ottende vidunder 
- næppe... 

Er de kompilerede programmer hur¬ 
tigere - ja, meget... 

Er der mangler og begrænsninger 
ja, en del... 

Er den let at bruge - indenfor 
visse grænser, ja... 

Osv.... osv. 

Vi tager lige tre nanosekunders hi¬ 
storie og facts om compileren. 

Den stammer som sagt fra Japan hvor 
en version på modul sælges (Formod¬ 
entlig en mere fuldstændig version 
end denne PD version). Der er ikke 
tale om en compiler i gængs for¬ 
stand hvor man først skriver sin 
source (sit BASIC program), deref¬ 
ter kører det gennem en compiler og 
til slut står med et ©ksekverbart 
program som er uafhængig af compi¬ 
leren. Nej, man har compileren 
liggende som en slags alternativ 
fortolker som kan kobles ind og ud 
efter behov. Ved at skære i speci- 
fi kati onerne i forhold til den 
normale BASIC fortolker (mindre 
nøjagtighed i beregninger, simplere 
fejlcheck, kodeoptimering og hvad 
ved jeg) har man opnået nogle til 
tider imponerende hastighedsforbed¬ 
ringer. 


Disketteversionen loades ind i RAM 
fra adresse &H4000 til &H7FFF. Det 
er samme sted moduler maser sig 
ind. Med nogle tricks får man com¬ 
puteren til at tro, at computerens 
egen RAM i virkeligheden er et 
modul... og sagen er bøf. 

Det er muligt at køre hele BASIC 
programmer under den nye compiler/ 
fortolker med kommandoen CALL RUN. 
Som alternativ kan man afvikle ud¬ 
valgte dele af sit program ved at 
aktivere compiler/fortolkeren med 
kommandoen CALL TURBO ON og slå den 
fra igen med CALL TURBO OFF. That's 
all, folks!. 

Hvad er den så god til.... 

Simple heltalsberegninger, loops, 
indlæsning af DATA, trigonomeriske 
funktioner med begrænset nøjagtig¬ 
hed, POKES og VPOKES (Der kan vir¬ 
kelig scores kasse ved at styre 
sprites vha. VPOKE!). Det lyder som 
et katalog over hvad de fleste 
spilleprogrammer får brug for. Læg 
dertil, at det er muligt at placere 
maskinkodestumper direkte i pro¬ 
grammet og man har et godt værktøj 
til formålet. 

Hvad er den uegnet til. 

Beregninger med stor nøjagtighed, 
håndtering af tekst-strenge (som 
defineres med længde 256 bytes 
uanset deres reelle længde og iøv- 
rigt ikke kan udveksles mellem de 
dele af programmet, der kører under 
compiler/fortolker og de dele, der 
kører under den normale BASIC!), 
stort set alle systemkommandoer 
(f.eks. BASE, NEW, LIST) samt MSX 
DISKBASIC kommandoer og andre I/O 
faciliteter. Desuden er der be¬ 
grænsninger i en række grafikkom- 
mandoer og de fleste interruptdrev¬ 
ne kommandoer som ON STOP, ON IN¬ 
TERVAL, KEY() ON osv. Begrænsninger 
og undtagelser er der mange af, og 
de er beskrevet i den medfølgende 
tekst så lad os i stedet se et par 
eksempler på brug. 
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Det følgende program sender ti 
sprites på tværs af skærmen ved at 
VPOKE direkte i video rammen. Alt 
ialt 2500 VPOKEs som ved normal 
BASIC afvikling tager ca. 17 se¬ 
kunder . 

100 SCREEN 1 
110 FOR z*/.=0 TO 9 

120 SPRITE$ (z*/.) =CHR$ (255)+STRING$ (6 
,129 )+CHR$(255) 

130 NEXT z7. 

140 FOR z'/.=0 TO 9 

150 VPOKE &HlB00+z%#4,10+z%#10 

160 NEXT z% 

170 TIME=0 

180 CALL TURBO ON 

190 FOR z°/.=0 TO 255 

200 FOR zzX=0 TO 9 

210 VPOKE &H1B01 +zz*/.#4 , z% 

220 NEXT zz7. 

230 NEXT z% 

240 CALL TURBO OFF 

250 PRINT TIME/50 

Hvad tager det...hvad tager det.... 

Nu skriver vi RUN og så.Øhhh, 

0.32 sekund. Det er ca. 50 gange 
hurtigere. 

Man kunne have udeladt linie 180 og 
linie 240 og i stedet have skrevet 
CALL RUN da programeksemplet ikke 
indeholder nogen kommandoer, som 
compileren ikke kan snuppe. 

I øvrigt arbejder POKE kommandoen 
flere hundrede gange hurtigere end 
under BASIC. 

Og så lidt dårlige nyheder omkring 
nuværende BASIC programmer. Jeg har 
ikke blandt mine egne programmer og 
dem hentet fra MSX bladet fundet 
et, der kunne køre uden modifikati¬ 
oner. Og de, der er baseret på 
interruptdrevne muligheder kræver 
den helt store omskrivning. Endvid¬ 
ere må den kode, der genereres, jo 
ligge et sted, nemlig samme sted 
som BASIC koden. Det begrænser i 
praksis programmernes størrelse til 
ca. 10 K ifølge den medfølgende do¬ 
kumentation . 


Det skal for god ordens skyld til¬ 
føjes, at der til compileren er 
udviklet en musikcompiler, der gør 
det muligt at spille musik sideløb¬ 
ende med den øvrige programafvik¬ 
ling ved hjælp af interrupts. 

Konklusionen må være, at compileren 
er en virkelig hjælp til at sætte 
fut i en bestemt type programmer. 
Nemlig action spil. Man kan utvivl¬ 
somt finde isolerede anvendelser i 
andre typer programmer. Men compil- 
erens måde at håndtere tekststrenge 
på gør den jævnt hen ubrugelig til 
administrative formål. Programmer, 
der skal bruges med compileren, 
skal nok være skrevet med dens 
begrænsninger i tankerne. Er de 
det, er den meget let at bruge. Et 
plus skal den også have, fordi den 
ser ud til at være meget robust 
overfor tumpede programfejl. Jeg er 
kun en enkelt gang gået uhjælpelig 
ned og har måttet slukke computer¬ 
en. Man kan forvente forbedringer 
på 10-30 gange for de fleste kom¬ 
mandoer som compileren accepterer, 
og det er slet ikke ilde og i al 
fald bedre end en del lige så be¬ 
grænsede compilere jeg har set til 
Commodore og Amstrads hjemmecomput¬ 
ere . 

Som vejledningen si ger....brug den 
til 'real time games, grafik flip 
og demoer'. 

SLUT HERFRA 
Jesper Schultz-Pedersen 


Kommentar: 

Denne Basic-compiler som Jesper 
netop har omtalt, kan I kær© 
medlemmer også komme i besiddelse 
af. I og med det er et P.D. program 
kan vi sælge det gennem MSX-BIB. 
Music-compileren der omtales, 
fungerer så dårligt at den ikke vil 
komme i BIB lige med det samme. 

Kim 





**** FANTASMA **** 


piaa diaman) 

10 ' m#m***#*mmm**#m******* 

20 '* * 

30 '« * FAWTASI7IA * * 

40 '* * 

50 '« ET SPIL FRA 7APAW * 

GO ' * « 

70 '* TIL ALLE IDSX' LERE * 

80 '# * 

81 '# FRA JOHNNY B DIUSI k * 

82 ^ 

83 '* SyWTAXEW 1988 * 

84 '* * 

AO ' . 

100 ' 

110 SCREEN 1 ,2,0/ COLOR 15,1,1:CLS:k 
£y OFF:WIDTH32 

120 LEFINT A-Z/BIIT) C(1),T(1,5) 

130 G05UB 1010/HS=1000/P#="s10m1000 
O M 20 i32o6" 

140 GOSUB 1090/PLAy P$+"LELELEFGA8 " 
; FOR 1=1 TO 2000 .• WEXT 
150 SC=0 ; R£=3 z R0=1 zTT-1 000 : A=RWB(-1 
) 

1 GO GOSUB 820 

170 X=1G.-y=12:01=1 :H=1 3:L-1 8;Cl»O/tø 
=15/W=18/ / mM=0 : WW—1 
180 RX=17/Ry=18/RR=-1 .-02=1 /C2=0/BX= 
19/By=1S/BB=1:03=1:C3-0/T-TT 
1 AO FOR I=0TO1 

200 OA/TCI.RO DIOB G)GOSUB 610,620,63 
0.G40 

210 WEXT/ GOSUBG50 : B=T( O , RO NOB 6)/B 
L=T (1,RO mOB G) 

220 GOSUB 680 .-GOSUB GGO/GOS UB 760 :P 
LAYP$+"cegb" 

230 LOCATE 13,23:PR I NT"REALYI";: FOR 
I=1T03000:WEXT 

240 L0CATE13,23;PR(WT SPC(G); 

250 S=STICkCO)0R STICkCI) 

2G0 IF S>1 AWBS<5 THEN 01=2zX=X~(X< 
29) 

270 IFS>5 THEN01=1 /X=X+(X>2) 

280 y=y+(CS=1 0RS=2 ORS=8) AWBy>3)- 
CS>3 AWBS< 7 AWDy<21) 

290 GOSUBGSO 

300 OW B GOSUB 330,380,440,490 
310 OW BB GOSUB 330,380,440,490 
320 G0TO550 

330 C1=C1 XOR 1.-IFC1 G0T0350 
340 H=H+SGW(X-H):L=L+SGW(y-L) 

350 GOSUB GI O 


3G0 IF ABS(X-W)<2 AWB ASS(y-L)<2 GO 

T0790 

370 RETURW 

380 IF ABS(X-M)<2 THEN NN=SGN (Y~N ) .- 

mm=o 


390 IF ABS(y-W)<2 THEN m=SGN(X-W) : 
WW=0 

400 fn=in+mm/w=w+ww 

410 GOSUB 620 

420 IF ABS(X-rr))<2 AWB ABS<y-W) <2G0T 
O 790 

430 RETURW 

440 IF RX<3 OR RX>28 THEN 02=02 XOR 
3/RR=RR*~1 

450 RX=RX+RR;C2=C2 XOR 1:IFC2 THEN 
Ry=Ry+SGw<y-Ry) 

4G0 GOSUB 630 

470 IF ABSCX-RX)<2 AWBABS(y-Ry) <2 G 
OTO 790 
480 RETURN 

490 IF By<4 OR By>20 THEW SB=SS*-1 
500 By=By+BB:C3=C3+1:IFC3<3 GOTO 52 
O 

510 C3=0;I FX<BX THEN BX=BX-1/03=1 E 
LSE IFX>BXTH£W BX=BX+1/03=2 
520 GOSUB G40 

530 IF ABS(X-BX)<2AWB ABS(y-Sy)<2 G 

OT0790 

540 RETURN 

550 V=6144+X+y*32 

560 F=0/F=F-(VP£Ek(V)=97)/F=F-(VP£E 
kCV+1)=97) 

570 F=F-(VPEEkCV+32)=97) :F=F-(VPEEk 
(V+33)=97) 

580 IF F THEW GOSUB 710 

590 T=T-1:G0 SUB 660:IF T<1 GOT0790 

600 GOT0250 

GI O PUT SPRITE 2,<H*S,L*8-1),15,4/R 
ETURN 

620 PUT SPRITE 1,<m*8,W*8-1),11,3/R 
ETURN 

630 PUT SPRITE 3 ,(RX*8,Ry*8-1),8,02 
z RETURN 

640 PUT SPRITE U,(8X#8,8Y*8-1),5,03 
.-RETURN 

650 PUT SPRITE 5,(X*8,y*8~1),15,01z 
RETURN 

66O LOCATE 23,0/ PR I WT US I WG'T I IDE### 
# " : T; 

670 RETURN 

680 IF SOHS THEN HS=SC 

690 LOCATE 1,0 .-PRINT USING"HI ##### 

O SCOR£#####0" ,-HS/SC; 

700 RETURW 

710 LOCATE X , y / PR I WT" .-LOCATE X, 
Y+l .-PRINT" 
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**** FANT ASM A -N-N-N-N* 


720 ir r>1 THEN B0=5 ELSE 80*1 
730 F0RI=1T0 F:PLAY P$+"eg": AP=AP-1 
;SC=SC+BO:GOSUBG80:NEXT 
740 IF AP<1 THEN RETURN 88 0 
750 RETURN 

760 L$=RIGHT$(" "+STRING$(RE, "h"),3 
0) 

770 LOCATE 31-LEN(L$),1:PR INTL*; 

780 RETURN 

790 PLAy P$+"bgec":FOR 1-1 TO 5000:N 
EXT 

8 00 RE=RE-1:IF RE <0 GOTO 970 
810 GOTO 170 

820 CLS:VPOk£ BAS£(6) + 1 2, <XH91 
830 AP=50:F0RI=1 TO AP 
840 R1=RND(1)*28+2:R2=RND<1)*19+3 
850 IF VP££k(6l44+R1+R2*32)=97 GOTO 
840 

860 LOCATE RI,R2:PRINT"a";:NEXT 
870 RETURN 

880 PLAYP$+"s3m2000t'150i1Go6efff+g8 
ef8de8cd8o5bo6c8. o7c8oGck" 

8 90 LOCATE 1 0,10:PR INT"ROUND CLEAR" 

900 T=T~T mOD 10: IFT<1GOTO 920 
910 TOR 1=1 TOT010:T=T-1O:GOSUB GGO 
: SC=SC+1 :GOSUB G80.-NEXT 
920 GOSUB 950:RO=RO+1:TT=TT+(TT>200 
>*100 

930 rOR 1=1 T05000 ;NEXT 
940 GOTO 160 

950 POR I -1T05:PUT SPRI TE I,(0,209);N 
EXT 

9G0 RETURN 

970 GOSUB 950 : PLAyP$+'' M 40 (1 Gff+gg+ 
8aa+8bb8go7c8. oGq8o7cc 4" 

980 LOCATE 11 , 1 O : PR I NT"GAIHE OVER"; 
990 POR I=1T02000:Ir STRI G (0) OR ST 
RIGC1) GOTO'1 UO ELSE NEXT 
ylOOO G0T0140 

1010 F0RI=1T0U:A*="";F0R7=1 TO 16:R 
EAD Q«:rOR k=1 T02 
1 020 A«=A*+CHR«CVALC"Åh"+fniB*(Q*,k^ 
2-1 ,2 >»:NEXT k,7:SPRITE$(I)=A*:NEX 
T 

1030 FORI-1T02:REAL A:FOR7=OTO 7:RE 
ABA$ 

1040 VPOkE A#8+7,VAL("&h"+A$) :NEXT7 
, I 

1050 roRI=5 T013:R£ABA«:VP0k£ BAS£C 

6)+1 ,VALX"&h"+A$):NEXT 

1060 FORI=&H180 T0ÅH2D7:VPOkEI,VP££ 

kCI) ORVPEEkCI)/2:NEXT 

1070 rORI-0T05:F0R7=0T0 1 : READQ:T(J, 

I)=Q :NEXT 7,I 


1080 

RETURN 


1090 

CLS: C=9 :LOCATE 0, 

,23 

1100 

PR 1 NT" a 


1110 

PRINT " aaaa 


a" 

1120 

PR 1 NT" aa 


1130 

PR 1 NT" a a 

a 

1140 

PRINT" a 

a 


a 

acta 

a a 

a 


a 


1150 rORI=1 T07:PR INT: NEXT 

1160 LOCATE 9,23:PR I MT"PUSH SPACE k 

EV" ; 

1170 FOR 1=1 T07:PR I NT:NEXT 

118 0 ir STRIGCO) OR STR I GO) THEM R 

ETURN 

1190 VPOkE BASE(6)+12 ,C*1 6+1:C=C XO 
R 12 

1200 GOTO 1180 

1210 DATA 071/,7/7/,f/ee.eeee,////, 
7/7/.3/1/,0/03 

1220 DATA 00c0,/0/0,/8/8,/8/8,/8/8, 
/OeO,cOeO,/8e0 

1230 DATA 0003.0/0/,1/1/,1/1/.1/1/, 
0/07,0307,1/07 

1240 DATA eO/8,/e/e,//77,7777,////, 
/«/«./c/8,/OcO 

1250 DATA 0101,0303,077/, 7d3d,1d0f, 
Ofif ,1 fle,3830 

1260 DATA 8080,c0c0,e0/e,befoc,b8/0, 
/0/8,/878,1c0c 

1270 DATA 001/,3/3/,7/7d,7d7d,7/5/, 
3b3c.3/3/,1eOO 

1280 DATA 00/8,/c/c, febe,bebe,fefa, 
dc3c,/c/c,7800 

1290 DATA 97,04,08.7e,d/,fo/,//,7«,3 
c 

1300 DATA 10U,38,7c,fe,dG,fe,7c,3c, 
Oe 

1310 DATA al,/1,/1,a1,a1,a1,a1,91,/ 
1 

1320 DATA 1,2,3,4,1,4,1,3,2,4,2,3 


El' virke il gi r /(ot spti /ra 
7APAN 

Du er det hvide spøgelse, saml 
sbier op og undgå de andre 
spøgeiser 

Hej fra Tohnny B GOOD 
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Mange har sikkert været ude for 
at man loader et program ind 
fra diskettestationen, og selv 
om programmet forlængst er kørt 
ind står diskettestationen og 
snurrer videre. 

Her er en lille rutine, som kan 
afhjælpe dette problem ved 
maskinkodeprogrammer: 

Prgrammet er set i den 
hollandske klub C.U.C's medlem¬ 
sblad. 

10 Rem Programmet er lavet at 
Paul Karman 

20 Maxfi 1es = 0: Clear 20,&h8400: 
cis 

30 Files: Print :Print 
40 Input "Vælg program; A$ 

50 Bload A$: Time=0 :Poke 

&HF18F,1 

60 Defusr=Peek (&HFCBF) + 256* 
Peek (&HFCC0) 

70 If Time < 2 Then 70 else 

Z=USR(0) 

80 End 

Det der sker er, at adressen 
&HF18F sættes lig nul når disk¬ 
drevet kører - og lig een når 
diskdrevet stoppes. 

Det kan være, at programmet 
ikke virker på din MSX-maskine, 
men fortvivl ikke for her 
kommer et program som 

undersøger hvilken adresse, din 
diskettestation bliver styret 
f ra: 

100 rem Af Paul Karman 

110 rem program til søgning af 

120 rem adresser. 

130 cis 

140 locate 10,0: Print "peek 
Tæller” 

150 locate 8,2: Print ”&H 

0 ” 

160 y=2 

170 for x= &HF000 to &HF500 


180 

locate 

10 

1 ,y:Print Hex$(X) 

190 

b=dskf(0) : 

A=Peek(x):Time=0 

200 

if time 

< 

2 goto 200 

210 

if a< = 

peek(x) then 300 

220 

for J=1 

tc 

. 3 

230 

b=dskf(0): 

Time=0 

240 

locate 

19, 

y:Print Using ”### 


peek(x) 

; 


250 

if peek 

(x) 

then 240 

260 

if time 

>200 then Print ”<- ; 

270 

for i = 

1 

to 500: next 

280 

next j 



290 

Y= Y+l 



300 

next x 



310 

end 





QØB.E? Al? QILAfDS Ø n 


10'' Golf 
20 ' 

30 'By Claus B 
40 ' 

50 ' 

£0 HI = 1 0 0: H$="Svi" 

70 COLOR 1,12,1:SCREEN 1,2:B$="" 

80 UY= 1.6 
A C 

90 DATA 00011000,00111100,01111110. 
ill 111 11.11111111,01111116,0011110& 
,00011000 
100 REST0RE 

110 FOR 1 = 0 TO 7 : READ A$ : B$=B$+CHR-£ 
< WL( "&B" +A$> ) 5 NEXT I 
120 SPRITE*«0>=BS 
130 ' 

140 SC=0: KU=7 
150 ' 

léO CLS:PRINT SUI Golf"sPRINT 

170 COLOR14:PRiNT:PRINT 
180 PRINTSTRIN6*< 43,210) 

190 COLOR 1:PRINT , fi Hi:"HI}" BY "H* 
200 PRINTSTRING*<4å,172) 

210 PSETC0, 130) ,5:DRAW 11 r255d 1 lr255u 
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■*-*■** GOLF AF CLAUS BL * TYDEL IG SKRIFT -*-*-*-* 


240 ' 

250 " 

260 LOCATE 24,16:PRINT"Kugler:"KU 

270 ■'Dr aw c irel e 

280 A=RND<-TIME)*160+35 

290 B=RND<-TIME)* 100+85 

300 ClRCLE<A,B),9,1 

310 PSET <A,b 5,1:DRAW"u30f7g7" 

320 PAINT<A+2.B-19) , 1 
330 'Move Bal 1 
340 H= 0:T= 0 
350 ' 

360 SOUND 0,100+CH/3)iSOUND 7,62:SO 
UND 8,10 

370 PUTSPRITE 0,<H,180),15,0 
380 H-H+MY:IF H>255 THEN T=T+1:H=1 
390 IF T=3 THEN GOTO 540 
400 Z*=INKEY* 

410 IF Z$=CHR$<32) THEN GOTO 430 
420 GOTO 360 
430 ' 

44 0 ' 

450 SOUND 8,0 
460 FOR U=180 TO B STEP -1 
470 SOUND O-V:SOUND 8,10 
480 PUTSPRITE 0,<H,U>,15,0 
490 NEXT K) 

500 H=H-A 

510 IF H>7 OR H<-7 THEN P0=0 ELSE P 
0=1 

520 IF PO= 1 THEN SC:=SC+5-T+1 :CIRCLE 
< A,B),9,12:PSET (A, B) ,12:DRAW"u 3 Of 7g 
7” : PAINT< A+2 , B- 19) , 12:UY=W+ . 04: GOT 
O 240 ELSE T=3:GOTO 390 
530 GOT0530 

540 FOR KL=0 TO 15:SOUND 8,KL 

550 FOR KE=0 TO 25:NEXT KE:NEXT:BEE 

P 

560 i<U=KU- 1 

570 IFKLN-1 THEN GOTO 590 

580 GOTO 150 

590 C0L0R15,1,1:CLS 

600 PRINT SPRINT 

610 PRINT,"Score:»SC 

620 PRINT:PRINT 

630 IF SO HI THEN PRINT," Navn:" 

5:H$="":HI=SC ELSE 690 
640 X*=INPUT*<1) 

650 IF X$> 11 z" OR X*<"a" THEN 640 
660 X$=CHR*<ASC<X*)-32) 

670 BEEPSPRINT XU>? :H*=H*+X* 

680 IF LEN<H$)=3 THEN 690 ELSE 640 
690 PRINT:PRINTTAB<10)"Tryk en tast 

700 A*«INPUT*<1) 

710 GOTO 70 


®BØ 

øeb 


3 IP'u'BBB. ] Q ■ 



Nogen har nok undret sig over at 
mine udprintninger altid er så 
klare og tydelige og det er let 

•Forklaret nemlig .. 

Brug NYE farvebånd og print ud i 
NLQ + Bolded dette gør at printeren 
printer hver linie over 4 gange 


Hvis nogen har en STAR printer 
Hermed en lille rutine til ind¬ 
stilling til bladets spalter 


10 ’BLADSPALTE BREDDE 35 TEGN + BOL 
D + NLQ 

20 CLS: PRINT" PRINTER INI TERET TIL 3 
5 TEGN SPALTE + BOLD + NLQ 
30 LPRINTCHR$ (27) ; " Q " / CHR$ (50) ; 

40 LPRINTCHR$(27) i" 1" ;CHR$(15) ; 

50 LPRINTCHRø (27) ; " G" ; 

60 LPRINTCHR$ (27) ;"xl " ; 


Når du har kørt denne og skriver 
LI ist går printeren ikke udenfor 
de 35 tegn 


Hvad med lille skrift på Epson 
compatible Jo kør denne her 

10 LPRINTCHRø(27) /" SO" ; CHR$(15);CHR 
$(27) 3" ;CHR$(15) 

20 CLS: PR I NT" PRINTEREN INI TERET TIL 
MINDSTE SKRIFT " 



ikkmeenc 


Ja dette var ordene se at finde 
pungen frem og køb et nyt farvebånd 
OGSÅ REDAKTIONS MEDLEMMERNE UPS 

Var der nogen der følte sig truffet 

Hej fra Johnny B Silkeborg 
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**-*■* MIDI INTERFACE TIL. JOY STICK PORT I 


ORØD RUMPBEPflØB 
ffRQ. 001? 01?RØG? 

PØS'? fl 

Ja døt ør rigtig, døt kan lade sig 
gøre at lavø et sådant Midi 
Interface og dette her er til Midi 
Out signaler. 

I materialer er det ca kr 40,- så 
bare gå i gang. 

Ma ter ia1 eforbrug: 

1 Joystick hanstik 

1 Din stik hun 

2 Modstande 220 Ohm 
1 IC kreds 7404 

1 lille stump ledning. 

Ellers skulle tegningen være til at 
finde ud af delene kan sagtens være 
i stikkene. 

Gennemgang af kredsløbet for en 
sikkerheds skyld. 

Ben 4 Din stik til modstand 220 Ohm 
derfra til Ic'en ben 14 - ben 14 

Ic'en forbindes endvidere til 
Joystick atik ben nr 5. 

Ben 5 Din stik til modstand 220 Ohm 
derfra til Ic'en ben 2 - fra Ic'en 


ben nr 1 til joystick stik ben 8. 

Ben 2 Din stik - stel forbindes til 
Ic'en ben 7 og endvidere til 
joystick stik ben nr 9. 

Så skulle alt fungere isæt det 
færdige interface i Joystick port 1 

Du taster de 2 Midi bin programmer 
ind og får derved to binære 
maskinkoder formatet til at bruge 
dem får du i Midi Message Maker og 
du kan se en af dem i brug i min 
simple demo. 

Med Midi Jigs kan du generere en 
lang række toner som sendes til dit 
Midi instrument som så spiller dem. 

Hvis du ikke laver fejl nogen steder 
garanterer jeg at det virker, det er 
afprøvet og testet. 

Nogen problemer Ring og spørg 

Program og Interface stammer fra 
Japan og vi arbejder videre med 
ideen. 

Hej fra Johnny B Musik. 



Illidi interface | 

, + 5^Volt 220 £2 

Joystick Port «1 C?40H pin « 1H> 


13 


■12 

11 

10 

9 

8 j 


CD CD CD CDP 


/2. 


C7404 pin tt 7 > D 5 4 £, 

i-°3 


P / 

1 J 


niidi OUT 


Cl 7404 


AAPv-J 

220 £2 
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**** MIDI INTERFACE TIL JOY STICK PORT 1 **** 


20 >****# *## X- ** *** * **** ****** * 

20 ' * MIDI MESSAGE MAKER TIL * 
30 '* interface: JOY-PORT 1 * 
40 ' * JOHNNY B SYNTAXEN 1988 * 
50 'tf*#*****#**#*#*###*#***### 
60 ' 

70 'DETTER ER FORMLEN TIL 
80 'MIDI.BIN 
90 ' 

100 'defint a-z 
110 'bload " MIDI.bin " 

120 ' defusr<"&hc800 
130 'poke &hc8a2,<data> 

140 'a-usr(O) 

250 ' --- 

160 ' 

170 'DETTER ER FORMLEN TIL 
180 'MIDI2. BIN 
190 ' 

200 'defint a-z 

210 'bload "MIDI2.bin" 

220 'defusr"&hc800 
230 'a-usr(data) 

240 -—- 


1 'MIDI2.BIN 

2 'TIL MIDI INTERFACET 

3 'I JOY STICK PORT 1 

4 ‘JOHNNY B MUSIK 

5 'SYNTAXEN 1988 

6 ' 

10 DATA 3A,F8, F7, F3, 4F, 6,8,11,B,0,2 
1,2F, C8, CB, 9,38,4 

20 DATA 3E, FF, 18, 2, 3E, F, 77, 5, 28, 4,1 
9,18, EF, 0, 3E, F 

30 DATA D3, AO, 3E, FF, D3, Al , CD, 98, C8, 

3E, F, D3, AO, 3E, FF, D3 

40 DATA Ål, CD, 98, C8, 3E, F, D3, AO, 3E, F 

, D3, Ål, CD, 98, C8, 3E 

50 DATA F, D3, ÅO, 3E, FF, D3, Ål, CD, 98, C 

8, 3E, F,D3,A0,3E,F 

60 DATA D3, Al, CD, 98, C8, 3E, F, D3, AO, 3 

E, F, D3, Al, CD, 98, C8 

70 DATA 3E, F, D3, ÅO, 3E, FF, D3, Al, CD, 9 

8,C8,3E, F,D3,A0,3E 

80 DATA FF, D3, Ål, CD, 98, C8, 3E, F, D3, Å 

0, 3E, FF, D3, Al, CD, 98 

90 DATA C8, 3E, F, D3, AO, 3E, F, D3, Ål, CD 

, 90, C8, C9, 0, 0, 0 

100 DATA 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 

0 , 0,0 


110 DATA C9,1A, FF, FF, FF, FF, FF, 0,0,0 
, 0 , 0 , 0 , 0,0 
120 ' 

1000 'LIGGER MASKINKODEN PÅ PLADS 
1010 FORA -&HC800T0&HC8AF: READX$ 

1020 POKEA, VAL("&H"+X$) :NEXT 
1030 ' 

1040 ‘GEMMER MASKINKODEN SOM BINÆR 
FIL 

1050 BSA VE'MIDI2. BIN', &HC800, &HC8AF 



1 'MIDI.BIN 

2 'TIL MIDI INTERFACET 

3 'I JOY STICK PORT 1 

4 ‘JOHNNY B MUSIK 

5 'SYNTAXEN 1988 

6 ' 

10 DATA 3A,A2, C8, F3, 4F, 6,8,11, B, 0,2 
1,2F, C8, CB, 9, 38, 4 

20 DATA 3E,FF, 18, 2,3E,F,77, 5,28,4,1 
9,18, EF, 0, 3E, F 

30 DATA D3, AO, 3E, FF, D3, Al, CD, 98, C8, 

3E,F,D3,A0,3E,FF,D3 

40 DATA Al, CD, 98, C8, 3E, F, D3, AO, 3E, F 

, D3, Al, CD, 98, C8, 3E 

50 DATA F, D3, AO, 3E, FF, D3, Al, CD, 98, C 

8, 3E, F,D3,A0,3E,F 

60 DATA D3, Al, CD, 98, C8, 3E, F, D3, AO, 3 

E, F, D3, Ål, CD, 98, C8 

70 DATA 3E, F, D3, AO, 3E, FF, D3, Al, CD, 9 

8, C8,3E, F,D3,Å0,3E 

80 DATA FF, D3, Al, CD, 98, C8, 3E, F, D3, Å 

0, 3E, FF, D3, Al, CD, 98 

90 DATA C8, 3E, F, D3, AO, 3E, F, D3, Al, CD 

, 90, Cd, C9, 0,0,0 

100 DATA 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 0 
0,0,0 

110 DATA C9,1A, FF, FF, FF, FF, FF, 0,0,0 
,0,0, 0,0,0 
120 ‘ 

1000 ‘LIGGER MASKINKODEN På PLADS 
1010 FORA m &HC800TO&HC8AF: READX$ 

1020 POKEA, VAL (" &H" +X$) : NEXT 
1030 ' 

1040 ‘GEMMER MASKINKODEN SOM BINÆR 
FIL 

1050 BSA VE 1 MIDI. BIN ‘, &HC800, &HC8AF 
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**** MIDI INTERFACE TIL. JOY STICK RORT 1 ■*•*** 


10 'simpel demo af midicontrol 
20 'jeg har brugt en DX7 
30 ' 

100 'BL0AD"midi2.bin 
110 DEFUSR-&HC800 
120 'SKIFT PROGRAM NUMMER 
130 A“USR(&HC0):'midi kanal Okanal 
0- nr 1 

140 A-USR(&H3) :'hex nr 3 - prg nr 
4 

144 ' 

145 'husk kanal + prg - Hex$(nr-1) 
150 ' 

160 'SPILLE EN TONE 

170 A-USR(&H90) :'Statusmelding nod 

e kommer 

180 A-USR(&H3C) : 1 node &h3C - node 
( 03 ) 

190 A-USRC&H7F) :'anslags styrke 
195 ' 

200 FORI^ITOIOOO:NEXT:'instrumentet 
spille tonen uafbrudt 
205 ' 

210 A-USRC&H90) s’Statusmelding nod 
e kommer 

220 Å-USR(&H3C) :'node &h3C - node 
(03) 

230 A-USR(&H0) :'analags styrke 
235 ' 

240 'da anslaget her angives til nu 
1 

250 'stopper instrumentet 
260 ' 

270 'laes min artikel om SM befaling 
280 'det er de samme tal der gælder 
her 

290 'Hej fra Johnny B god fornøje 1 

se 


10 ******************************** 
20 * * 
30 * MIDI JIG GENERATOR TIL MIDI * 
40 * INTERFACET I JOYSTICK PORT 1 * 
50 * BRUGER MIDI . BIN FILEN * 

60 * JOHNNY B MUSIK SYNTAXEN 1986 * 

70 * * 

80 ******************************** 
90 ' 

100 RR-RND(-TIME) ; KEYOFF 

110 CLS: PRINTSPC(28) "Midi Jig Gener 

ator" -.LOCATE1,22 


120 PRINT'for MSX & CMC Midi interf 
ace 1988(c) P.Mulva 

ney & G.Landini" 

130 BLOAD "midi.bin" :DEFUSR-&HC800: 
DR-&HC8A2 

140 CLS: INPUT'& Number of parts (1- 

6)";S:IF S>6 OR S<1 THEN140 

150 DIM NT (S, 8, 6) : PRINT 

160 INPUT'å # times jig plays"; W: IF 

W< 1 GOTO 160 

170 PRINT 

180 INPUT'å Tempo 0-40 (0 fastest)" 
; ZZ:IFZZ<0 OR ZZ>40 GOTO 180 
190 PRINT 

200 CN m 0 ‘midi channe1 

210 NO-144:V-100: INPUT' Na i t for pro 

mpt before play (y/n) " ;Å$ 

220 IF A$<>"y"ANDA$<>"n"GOT0200 
230 PRINT:PRINT:FOR P-l TOS 
240 FOR B°°l T07: FOR N-l T06:X-INT(R 
ND(1) *100+1) 

250 IF B m 5 OR B*>6 THEN NT(P.5 t N)«NT 
(P, 1, N) :NT(P, 6, N) - NT(P, 2, N) : G0T0620 
260 PRINT' å Generating NT(" ;Pt"; 
Bt "." }N;")" 

270 NT(P, B, N) m INT(RND (1) *15+1) 

280 IF B< >4 OR N< >6 THEN350 
290 I~ÅBS(NT(P, 4, 6) -NT (P, 1,1)): J-NT 
(P, 4,6) : IFJ-11 AND NT(P, 1,1)-14 THE 
N270 

300 IF J-14 AND NT(P,1,1)-11 THEN27 
0 

310 IF (I-OORI-30RI-40RI-50RI-60RI- 
70RI-90RI-11ORI-130RI-14)THEN360 
320 IF J-l OR(1-8 AND(J-3 0RJ-40RJ- 
11ORJ-l2))THEN270 

330 IF I-10 THENIF (J-20RJ-30RJ-40R 

J-l20RJ-13) THEN270 

340 IF 1-12THENIF(J-20RJ-30RJ-14)TH 

EN270 

350 IF N-l GOTO410 
360 IF (NT (P,B, N-l) -40RNT (P,B, N-l) - 
11) THENIF (NT (P, B, N)-70RNT(P, B, N) -14 
) THEN270 

370 IF (NT(P, B, N-l) -70R NT(P,B,N-1) 
-14) THENIF (NT (P, B, N) -40RNT(P, B, N) -1 
1) THEN270 

380 IF ABS (NT(P, B, N) -NT(P, B,N-l))-7 
THEN400 

390 IF (ABS (NT (P, B, N) -NT(P, B, N-l) )> 
4) THEN270 

400 IF B m 4 THEN IF N-6G0T0620 
410 IF X>20 OR N>3THEN470 
420 FORM-1 TO 3: IF(NT(P, B,N) >12 ORX 
<10) THEN440 






- 13 - 


*"***■ MIDI INTERFACE TIL. JOY STICK RORT 1 *-*•** 


430 NT(P, B, N+M) -NT(P, B, N) +M: GOT0460 

440 IF NT(P, B f N) <4THEN430 

450 NT(P, B, N+M) -NT(P, B, N) -M 

460 NEXT:N m N+3 

470 IF(N>4 ORX>37) GOT0600 

480 NQ m INT(RND (1) *30+1) .- ON NO GOTO 

550, 550, 550, 550, 550, 550, 550, 550, 550 

, 550 

490 ON NQ~10 GOTO 530,530,530,520,5 

20, 520, 520, 510, 510, 540 

500 NT(P, B, N+l) -NT(P, B, N) +2:NT(P, B, 

N+2) -NT(P, B, N) +4: FORG-1T02: GOT0560 

510 NT(P, B, N+l) m NT(P, B, N) +4 :NT(P, B, 

N+2) -NT(P, B, N) +2: FORG-1T02: GOT0560 

520 NT(P, B, N+l) -NT(P, B, N) +2:NT(P, B, 

N+2) -NT(P, B, N) -2: FORG-1 T02: GOT0560 

530 NT(P, B, N+l) ‘"NT(P, B, N) -2 :NT(P, B, 

N+2) -NT(P, B, N) +2: FORG-1 T02.- GOT0560 

540 NT(P, B, N+l) -NT(P, B, N) -4:NT(P, B, 

N+2) - NT(P, B, N) -2: FORG-1 T02: GOT0560 

550 NT(P, B, N+l) -NT(P, B, N) -2 :NT(P, B, 

N+2) -NT(P, B, N) -4: FORG-1 T02 

560 IFNT (P, B, N+G) >15 THENNT (P, B, N+G 

) -NT(P, B, N+G) -7: GOT0560 

570 IFNT(P,B, N+GX1THEN NT(P,B,N+G) 

-NT(P, B, N+G) +7: GOT0570 

580 IFN<1 THENIF (ABS (NT(P, B, N+G) -NT( 

P, B, N+G-l) ) >4) THEN NT(P, B, N+G) -NT(P 

, B, N+G-2) 

590 NEXT.-N-N+2 

600 IF (N-4AND(X02-X/2))THEN FOR R- 
0 TO 2:NT(P, B, N+R) -NT(P, B, N+R-3) :NE 
XT R:N-6 

610 IF B-4 THENIF N-6THENN-5 
620 NEXT: NEXT 

630 GOSUB 860: FORB-1 T08:F0RN-1T06: 
IF NT(P, B, N) -1 THEN NT(P, B, N) -50: GO 
T0740 

640 IF NT(P, B, N) -2 THEN NT(P,B,N)-5 
2: GOT0740 

650 IF (NT (P, B, N) -3 OR NT(P, B, N) -4) T 
HEN NT(P, B, N) -NT(P, B, N) +51: GOT0740 
660 IF NT(P, B, N) -5 THEN NT(P,B,N)-5 
7: G0T0740 

670 IF NT(P, B, N) m 6 THEN NT(P,B,N)-5 
9:GOT0740 

680 IF (NT(P, B, N)-7 OR NT(P,B,N)-8) 
THEN NT(P, B, N) -NT(P, B, N) +54: G0T074 

0 

690 IF NT(P,B,N)-9 THEN NT(P,B,N)-6 
4:GOT0740 

700 IF (NT (P, B, N) -10 OR NT(P,B,N)-1 
1) THEN NT(P, B, N) -NT(P, B, N) +56: GOTO 
740 

710 IF NT (P, B, N) -12 THEN NT(P, B, N) - 
69.-GOT0740 


720 IF NT(P,B,N) -13 THEN NT(P,B,N)- 
71: GOT0740 

730 IF(NT(P, B,N)-14 OR NT(P,B,N)-15 
) THEN NT(P, B, N) -NT(P, B, N) +59 
740 NEXT: NEXT: NEXT 
750 IF A$< >"n" THEN PRINT ' presa sp 
ace bar to play " 

760 IF A$<>"n" THEN B$-INKEY$:IF B$- 
"" THEN760 

770 FOR T-l TOW:FOR P-l TOS:FOR Y-l 
T02:FOR B-l T08:POKEDR, &HBO: A-USR( 
0):POKEDR,&H40:A-USR(0):POKEDR, 100: 
A-USR(0):FOR N-l T06'sustain on 
780 IF N-6 THENIF B-8 THENIF T-W TH 
ENIF P-S THENIF Y-2 THENZZ-ZZ+500 
790 PRINT 1 å playing NT (" ;P ; 11 , " ,-B; 
" , " ;N; " ) " :POKEDR, (NO+CN) :A-USR(0) 
800 POKEDR, NT(P, B, N) : A-USR(0) :POKED 
R, V:A-USR(0) : 'midi channel 
810 POKEDR, (NO-CN) :A-USR(0) .-POKEDR, 
NT(P, B, N) : A-USR(0) :FOR QT-1 TOZZ:NE 
XT 

820 POKEDR, (CN+128):A-USR(0):POKEDR 
, NT(P, B, N) : A-USR(O) :POKEDR, 0: A-USR ( 
0) : NEXT 

830 POKEDR,&HBO:A-USR(0):POKEDR, &H4 

0: A-USR(0) :POKEDR, 0: A-USR(0) :NEXT:N 

EXT:NEXT:NEXT'sustain off 

840 PRINT:PRINT' the jig is up!" : 

INPUT'Aga in " / AN$: IF AN$-"y" ORAN$-" 

Y' THENZZ-ZZ-500:GOT0750 

850 INPUT'Generate aga in" ;AN$: IF AN 

$—"y" OR AN$-"Y' THEN ERASE NT: GOTO 

140 ELSE KEYON: END 

860 B-8:FOR N-6 TO 1 STEP -1 

870 NT(P, 8,N)-INT(RND(1) *15+1) 

880 IF N< 6 GOT0940 
890 CX-ABS(NT(P, 8, 6) -NT(P, 1,1)) :IF( 
NT(P, 8, 6)-7 OR NT(P, 8, 6) -14) THEN87 
0 

900 IF (CX-0 OR CX-2 OR CX-4 OR CX- 
7 OR CX-9 OR CX-11 OR CX-14) THEN92 
0 

910 GOTO870 

920 L-ÅBS (NT(P, 8, 6) -NT(P, 4, 6) ) : IF(L 
-0 OR L-2 OR L-4 OR L-7 OR L-9 OR L 
-11 OR L-14) THEN960 
930 GOT0870 

940 IF (NT(P, B, N+l) -4 OR NT(P,B,N+1 
)-ll) THEN IF(NT(P, B, N) -7 OR NT(P,B 
, N)-14) THEN870 

950 IF (NT(P, B, N+l) -7 OR NT(P,B,N+1 
)-14) THEN IF (NT(P, B, N) -4 OR NT(P,B 
,N)-11) THEN870 
960 NEXT .-RETURN 





*-*-**- 8UEN8KA SI DAN **-*•* 


Nu borjar forstå delen av vår 
maskinspråksskola. VI kommer att gå 
Igenom att kommandon,programmering, 
assemblering, disassemblering samt 
andra finneser. Ni vet formodligen 
att Spectravideon består av tre 
huvudkretsar. Nåmiigen Z80 samt 
video och ljudchipet. Ni kommer att 
låra er att programmera Z80. Detta 
år ett namn på en 8-bitars krets 
som bla finns i ABC8Q, Spectrum och 
ZX81. Den tillverkas av foretaget 
Zilog och år vår Idens mest anvånda 
8-bitars processor. 

Vad år då skillnaden mellan 
maskinspråk och BASIC? Jo, framfo- 
rallt snabbheten. Maskinspråk år 
mycket omdståndigare att programme¬ 
ra men man kan åstadkomma resultat 
som man inte kan uppnå m.h.a BASIC. 

I sjålva verket år maskinspråk bara 
en massa koder(tal mellan 0 och 
255 (galler 8-bitars datorer.)) For 
att gora det hela lite låttare 
kommer vi att låra ut maskinspråk i 
form av assembler, som år ett mer 
forståeligt språk ån ett språk som 
bara består av en massa siffror. 
Assembler har nåmiigen en bokstav- 
skombination for varje kod tex 
kommandot LD som år en forkortning 
av ladda. 

Når man programmerar i assembler 
anvånder man mycket ofta det så 
kallade registerna. Vad år då 
detta? Jo, det kan enklast liknas 
vid BASICrens variabler. Till 
skillnad från BASIC har Z80 endast 
8 register, nåmligen A,F,B,C,D,E,H 
och L. Dessa kan hantera tal mellan 
0 och 255. En annan mojlighet finns 
och det år att slå ihop två regis¬ 
ter till ett registerpar, vilket 
medfor att detta par kan hantera 
tal mellan 0 och 65535. I sjålva 
verket anvånder man inte så hoga 
tal utan man brukar ange detta 
interval 1 mellan -32768 och 32767. 

Men om man bara har så få register, 
hur ska man då kunna spara så många 
olika tal som man antagligen beho- 
ver i sitt program? Jo, det gor man 


genom att lågga all viktig informa¬ 
tion i adresser i minnet, d.v.s att 
efter registret eller registerparet 
inte har någon direkt nytta av ditt 
utråknade vårde, så brukar man 
lågga undan detta vårde på en eller 
flera minnesadresser. 

Om vi tar ett enkelt assembler 
exempel, dår vi anvånder oss av 
kommandot ladda, så kan vi visa hur 
detta fungerar: 

I BASIC:en lågger man in vårde i 
minnet genom att anvånda kommandot 
POKE. Så vi borjar med att lågga 
t.ex vårdet 7 på adressen &hcd00. 

Pgrm: Forkl: 

ld a,(&hcd00) lågg vårdet på 

adr. &hcd00 (som år 
7) i register a. 

ld (&hcd01),a lågg reg. a:s vårde 
på adr. &hcd01. 

Genom att skriva in detta program, 
får man vårdet 7 åven på adressen 
&hcd01. Detta kan man se genom att 
skriva PRINT PEEK (&hcd01). Har 
programmet fungerat skrivs en sjua 
ut på skårmen. 

Nu finns det såkert några av er som 
kla<jar på att maskinen bara skriver 
SYNTAX ERROR, når ni forsoker att 
skriva in vårt eleganta exempel. 
Detta beror på att ni inte har 
någon assemblator (ha,ha). En sådan 
kan vara bra att ha om man vi 11 
gora storre maskinkodsprogram. En 
assemblator år ett program som man 
anvånder sig av når man skriver i 
assembler och inte i maskinspråk. 
Efter det att man skrivit in sitt 
assemblerprogram gor assemblatorn 
om detta program till maskinspråk 
som sedan kan forstås av datorn. 
Har man ingen assemblator år man 
tvingad att POKA in varje kod, så 
att datorn kan forstå ert maskinsp- 
råksprogram. Dessa koder kan man få 
i bocker som t.ex programmera Z80 
eller av oss, om ni skickar ert 
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namn och er adress samt ett svars- 
frimårke. Om ni inte har varken 
koder eller assemblator ar det lika 
bra att ge upp. Det går nåmiigen 
inte att låra sig assembler om man 
inte har minst ett av dessa forut 
nåmnda hjålpmedel. Kor man med 
koder ska man komma ihåg det hår 
med att dela upp minnesadressen man 
vi 11 lågga sin utråkning på i två 
delar och att den minst signifikan¬ 
ta delen ska komma forst. 

I programmet ovan såg du kanske (om 
du bara tånkte lite) att om regist¬ 
ret stod till vånster om adressen 
så skickades alltså vårdet från 
minnesadressen till registret och 
når det stod till hoger om adressen 
laddades alltså adressen med regis- 
tervårdet. D.v.s att LD fungerar på 
så sått att man laddar det forstå 
vårdet med det sista. T.ex LD a,b 
Dår får alltså a b:s vårde (a=b) . 

Med kommandot ladda kan man ladda 
register med register, register¬ 
par med registerpar, adresser med 
register o.s.v . Dock måste alltid 
ett register eller registerpar vara 
med så man kan inte ladda ett vårde 
direkt in i en minnesadress. Vi ska 
hår ge ett felaktigt exempel: 

Ld (&h!234),7 

For att du ska få 7 in i denna 
adress år du faktiskt tvungen att 
skriva så hår: 

LD a,7 

LD (&hl234),a 

Orsaken till att vi har gått igenom 
det så noggrant som vi nu har gjort 
år att vi vi 11 att al la ska forstå 
och att ingen biir efter så hår i 
borjan. Om ni vi 11 fråga något 
eller skicka efter ovanstående 
lista så skicka brevet till nedan- 
stående adress. 

Magnus Balldin 
Snickaregatan 9 
216 18 Malmo 
Sverige 

Det var allt for den hår gången och 
må era ovånner tro att assembler år 
en afrikansk matrått. 


QBBO CTØBQg 


Sveinar Varren fra Norge har sendt os 
et brev med følgende forespørgsler: 

- Sveinar har fået fat på nogle .PIC 
(billede-) filer, og har problemer 
med at få loadet dem ind. Det drejer 
sig om "GARFIELD. PIC" , ir SJANT.PIC" og 
"SYLVEST.PIC". 

- Desuden er Sveinar interesseret i 
programmer, der kan tegne "Pin-up 
damer" på skærmen eller udskrive dem 
på printeren. 

Du kan ikke bruge , PIC-f i lerne på en 
MSX1 computer. De er beregnet til en 
MSX2 computer. Filerne indeholder kun 
grafikdata, og er altså ikke 
egentlige programmer. De .PIC filer, 
du har fået fat på stammer faktisk 
fra mig (Lars). 

Er du meget interesseret i computer¬ 
pi nup shows, er det værd at investere 
i en MSX2 computer, da der findes en 
del shows til den. Jeg har ikke hørt 
om nogle lignende shows til MSX1. 

Jeg har hørt om programmer, der kan 
udskrive pin-up damer på printeren, 
men de bliver ikke udskrevet som 
grafikdata, men som bogstavkombina¬ 
tioner . 


Ja, det var ikke meget, der var at 
sige om det, men jeg håber, at 
Sveinar har fået svar på sine 
spørgsmål. 
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pøa ra m q øø Gaffl© 


7 ' $$$$$$$$$$$$$$$$$$$$$$$$$$$$ 


2 ' $$ $$ 

3 ‘ $$ ANIMATION PROGRAM FOR $$ 

4 ' $$ MSX 2 OG MUS DU TEGNER $$ 

5 '$$ OG COMPUTEREN ANIMERER $$ 

6 ' $$ $$ 

7 ' $$ (C) G LAND INI JAPAN $$ 

8 ' SS $$ 

9 ' $$ BRAGT AF JOHNNY B. $$ 

10 '$$ $$ 

7 7 '$$ SYNTAXEN 1988 $$ 

12 '$$ $$ 

13 '$$ KAN DU TILFØJE NOGET $$ 

14 '$$ TIL PROGRAMMET ER DU $$ 

15 '$$ VELKOMMEN $$ 

16 '$$ $$ 


17 


$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 


18 


19 CLEAR 100, &HA7FF 

20 DEFINTA-Z 

30 FORA D--&HA800TOS HA887: REA DD T$: POK 
EAD, VAL CåH" +DTS) :NEXTAD 

40 ' CONST 

41 CX--0: 'CONS X 

42 CY-1: 'CON Y 

45 CF-O: 'CONS FIRST 

44 CS-1: 'CONS SECOND 

45 PL-1: 'PALETTE LOWER 

46 PU-14: 'PALETTE UPPER 

47 PS-100: 'POINT SIZE 

50 ' ' VERS 

51 ' PG-PAGE TR a TRIGGER X=CURSORX 

52 'Y^CURS.Y DX-CURS.DX DY=CURS.DY 

53 'MD-SCREEN MODE RT-ROTATION MODE 

54 'AO-ANIMATION/ONE STEP 

60 DIMPO (1* PS, 1) : 'POINT (F/S, LOC, X/Y 
) 


70 DIMPT(I) : 'POINT TOP (F/S) 

80 DIMCC ( 1 , 3) : 'COLOR CODE(S/E f R/G 

/B) 


90 DIMCR(14) .CG(14) ,CB(14) : ‘PALETTE 
100 DEFFNID (XY) = ( (PO (CS, L 2, XYJ -PO (C 
F,L2,XY))*L1 /PG) +P0 (CF, L2,XY) 

110 DEFFNIC(SC,EC) = (EC-SC)*L1/PU+SC 
120 DEFUSR0 a 3HA800: ‘SCREEN TRANSF. 
130 DEFUSR1-&HA802: ‘PAGE CHANGE 
140 DEFUSR2-&HA804: 'COLOR SET(FILL) 


150 COLOR=RES TORE 
160 0PEN"GRP:"AS#1 
170 ' TITLES 
500 ' TITLES 

510 SCREENO:UIDTH80:COLOR 15,0,0:KE 
YOFFsCLS 

520 PRINT" <ANIMAKE> VER. 1.0 
BY GABRIO " 

530 PRINT:PRINT"AUTO ANIMATION TOOL 
FOR MSX2 + MOUSE " 

540 PRINT:PRINT" MOUSE CLICK" 

550 PRINT " LEFT CLICK:POINT SE 

T & CONNECT" 

560 PRINT" RIGHT CLICK:POINT EN 

D (RETURN) 

570 PRINT"LEFT+RIGHT CLICK:POINT EN 
D (NON RETURN) 

580 PRINT:PRINT:PRINT"HIT ANY KEY" i 

590 I FINKE Y $<>"" OR S TRIG (DORS TRIG (3 

) THENIOOOELSE 590 

1000 ' SET POINT 

1010 SCREEN7:CLS 

1020 FORLO-CFTOCS 

1030 X=256: Y*106 

1040 £ 7-7 

1050 DMY=PAD (12) 

1060 DX=PAD (13) :D Y*PAD (14) 

1070 X=X+DX: Y- Y+D Y 

1080 IFX<OTHENX-OELSEIFX>511THENX*5 

11 

1090 IFY<OTHENY=OELSEIFY> 191THENY-1 
91 

1100 LINE (X-1, Y-1)-(X+1, Y+1) ,15, BF, 
XOR 

1110 LINE (X-1, Y-1) - (X+1, Y+1), 15,BF, 
XOR 

1120 TR-0 

1130 IFSTRIG(1) ORSTRIG (3) THENG0SUB7 
OOO 

1140 IFTR-2ANDL 1 > 1THENBEEP: X=PO (LO, 

1, CX) : Y-PO (LO, 1 ,CY) :PO(LO,L1, CX) -X: 
PO(LO,L1 ,CY)-Y:PT (LO) -L 1 s LINE (PO (L O 
,L 1 -1 ,CX) ,PO (LO, L 1 -1 ,CY) ) - (X, Y), 15: 
GOTO 1180 

1150 IFTR=3ANDL 1 > 1 THENBEEP:PO(LO,L1 
,CX)-X:PO(LO,L 1 ,CY)-Y:PT(LO) -L 1 :LIN 
E (PO(LO,L 1-1 ,CX) ,PO (LO,L1 -1 ,CY) ) - (X 
, Y), 15-.GOTO 1180 

1160 IFTR-1 THENBEEP:PO(LO,L1, CX) -X: 

PO(LO,L 1 ,CY) = Y: IFL 1-1 THENPSET(X, Y), 

15ELSELINE(PO(LO,L1-1,CX) ,PO(LO,L1- 

1 ,CY) ) - (X, Y) .15ELSE1050 

1170 L1 a L1 + 1:IFL 1< a PSTHEN1050ELSEPT 

(LO) =PS 

1180 CLS 
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1190 0NL0+1 GOTO 1200,1250 
1200 PS ET (PO (CF, 1 ,CX), PO (CF, 1 ,CY)), 
12 

1210 FORLI =2T0PT(CF) 

1220 LINE ~ (PO (CF, LI ,CX) ,P0 (CF, LI ,CY 
)), 12 

1230 NEXTL1 
1240 GOTO 1280 

1250 IFPT(CF) >PT(CS) THEN 1260ELSEIFP 
T(CS) >PT(CF) THEN1270ELSE1280 
1260 FORL 1-PT(CS) + 1TOPT(CF) :PO(CS,L 
1,CX) =PO(CS,PT(CS), CX) :PO(CS,L 1 ,CY) 
=PO (CS, PT(CS), CY) : NEXTL 1 :PT(CS) =PT( 
CF)iGOTOl280 

1270 FORL 1 =PT(CF) +1 TOPT(CS) :PO (CF, L 
1, CX) -PO (CF, PT(CF), CX).- PO (CF, LI ,CY) 
-PO(CF, PT(CF), CY) :NEXTL 1 iPT(CF) =PT( 

CS) 

1280 NEXTLO 

2000 ' SET PARAMETER 
2010 SCREEN7: CL S: SETPAGEO, 1 :CLS 
2020 SCREEN2:COLORI5:CL S 
2030 PRESET(0,0) 

2040 PRINT# 1, " Input SCREEN MODE" 
2050 PRINT# 1," <1> iSINGLE SCREEN " 

2060 PRINT# 1 ," :MULTI SCREEN" 

2070 PRINT# 1 ," <3 > .-RETURN TO EDIT " 

2080 KYS-INPUTS (1 ) 

2090 KY-INSTRC' 123" ,KY$) 

2100 IFK Y s 0THEN2080 
2110 IFK Y-3 THEN 10OO 
2120 MD=KY-1 
2130 PRINT# 1," " 

2140 FORLO=CFTOCS 

2150 IFLO-CFTHENPRINT#1," START " 
;ELSEPRINT#1 ," END 
2170 FORL 1 = 1 TOS 
2180 KYS-INPUTS (1) 

2190 IFK Y$<" O" ORK Y $>" 7" THEN2180 
2200 CC(LO,LI)=VAL (KYS) :PRINT#1,KY$ 

2210 IFL 1<3THENPRINT#1 ; 

2220 NEXTL 1 
2230 PRINT# 1," " 

2240 NEXTLO 
2250 PRINT#1," " 

2260 PRINT# 1," PAGE (2~" ; 

2270 IFMD-OTHENPRINT#1,"30)? ";ELSE 
PRINT# 1," 15)? 

2280 PG$ " 

2290 KYS-INPUTS(1) 

2300 IFKY$ s CHR$(1 3) THENPG»VAL (PGS): 
GOTO 2320 

2310 IFK Y$ <" O" ORK Y $>" 9" THEN2290EL SE 
PGS-PGS+K Y$: PRINT# 1, K YSj : GOTO 2290 


2320 PRINT# 1," PRINT# 1," " 

2330 IFMD-OANDPG>30THENPG=30ELSEIFM 

D=1ANDPG>15THENPG=15 

2340 IFPG<2THENPG ss 2 

2350 PG-PG-1 

2360 IFMD-0THEN2490 

2370 PRINT# 1," INPUT ROTATION TYPE 

2380 PRINT# 1 ," </>.*"; :ASBDBDBDB 
DBDBD8DEEEEEEE" :DRAW "XA$;XA$;XA$;X 
A$j" .-PRINT# 1," " 

2390 PRINT# 1 ," <2>:" ; DR AU" BDBDBD 

BDBDBDBDBDEEEEEEEFFFFFFFEEEEEEEFFFF 
FFF" 

2400 KY$=INPUT$(1) 

2410 IFK Y$=" 1 " THENRT=OELSEIFK Y$=" 2" 
THENRT= 1 EL SE2400 
2420 PRINT#1," " 

2430 PRINT# 1," INPUT DISPLAY TYPE" 
2440 PRINT# 1," <1>: ANIMA TION " 

2450 PRINT#1 ," <2>:ONE STEP " 

2460 KYS-INPUTS(1) 

2470 I FKYS-' 1" THENAO-OELSEIFKYS-" 2" 
THENAO-1ELSE2460 
2480 PRINT#1," " 

2490 PRINT# 1," READY (Y/N)?" s 
2500 KY$*INPUTS (1); IFK Y$=" Y" ORKY$=" 
Y" THEN3000ELSE2000 
3000 ' COLOR CODE SET 
3010 IFMD-OTHEN SCREEN7:COLOR 15,0, 
O:CL SELSE SCREEN2:COLOR 15,0,0:CL S 
3020 FORL 1-PLTOPU 

3030 CR (LI) -FN IC (CC (CF, 1) ,CC (CS, 1) 

) 

3040 CG (LI) -FN IC (CC (CF, 2), CC (CS, 2) 

) 

3050 CB (LI) -FN IC (CC (CF ,3) ,CC (CS ,3) 

) 

3060 COL OR= (LI ,CR (LI),CG (LI) ,CB (LI) 

) 

3070 NEXTL 1 
4000 ' IN BETWEEN 
4010 IF MD-0THEN6000 
5000 ' MULTI SCREEN 
5010 FOR L 1-OTOPG:CLS 
5020 COLOR 13/PG*L1 + 1 
5030 FORL2-1TOPT(CF) 

5040 PX-FN ID (CX) /2:PY b FN ID(CY) 
5050 IFL 7 - 1THENPSET (PX, PY) EL SELINE- 
(PX,PY) 

5060 NEXT L2 

5070 PP%-L 1 :DMY~USRO(PP%) 

5080 NEXTL 1 

5090 COLOR = (15,0,0,0) 

510O DMY-USR2 (O) : BEEP 
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5110 IF NOT(STRIG(O)) THEN5110 
5120 IFRT*1THEN5210 
5130 L 1%=0 

5140 FORL 2 m 1T015: NEXTL 2 
5150 CL=15/PG*L1%+1 
5160 COLOR a (15,CR(CL) ,CG(CL) ,CB(CL 
)) 

5170 DMY-USR1 (L 1%) 

5180 IFINKEY$~CHR$(13)THEN2000 
5190 IFA0*0THEN5200ELSEIFSTRIG(0) TH 
EN5200ELSES 180 

5200 IFL 1 %<PGTHENL 1%*L 1%+1:GOTO 514 

0 ELSES 130 
5210 L1X-1 

5220 FORL 2*1 TOI5: NEXTL 2 
5230 CL*13/PG*L1%+1 
5240 COLOR = (15,CR(CL) ,CG(CL) ,CB(CL 
)) 

5250 DMY-USR1 (L 1%) 

5260 1FXNKEY$=CHR$(13)THEN2000 
5270 1FA0=0THEN5280ELSEIFSTRIG(O) TH 
EN5280ELSE5260 

5280 IFL 1 %<PGTHENL 1%=L1%+1:GOTO 522 
O 

5290 L 1%=PG~1 
5300 FORL 2*1 TOI5s NEXTL2 
5310 CL = 13/PG*L1%+1 
5320 COLOR = (15,CR(CL), CG (CL), CB (CL 
)) 

5330 DHY=USR1 (L 1%) 

5340 IFINKEY$=CHR$(13) THEN2000 
5350 IFA0*0THEN5360ELSEIFSTRIG(O) TH 
EN5360ELSE5340 

5360 IFL1%>OTHENL 1%=L 1%-1:GOTO 5300 
ELSE5210 

6000 ' SINGLE SCREEN 
6010 CLS.-BEEP 

6020 IF NOT (STRIG(O)) THEN6020 
6030 CL S 

6040 FORL 1*0 TOPG 
6050 COLOR 13/PG*L1 + 1 
6060 FORL2*1 TOPT(CF) 

6070 PX=FN ID(CX) :PY=FN ID(CY) 

6080 IF L2=1 THENPSET(PX,PY) ELSELIN 
E-(PX,PY) 

6090 NEXTL 2 
6100 NEXTL 1 

6110 IFSTRIG(O) THEN6030 

6120 IF INKEY$=CHR$(13) THEN2000 ELS 

E 6110 

7000 ' CLICK SENSE S UB 
7010 L9=l 

7020 IF STRIGd) ANDS TRIG (3) THENTR* 
3:RETURN 

7030 IFSTRIG (1) THENTR* 1 


7040 IFSTRIG(3) THENTR-2 
7050 L9*L9+1:IFL9> 10THENRETURN ELSE 
7020 

10000 ' MAC HINE LENG DATA 
10010 DATA 18,4, 18,54, 18,74,f3,3a,f8 
, F7, 32,87, A8, 21,0,0 
10020 DATA 11,0, BO, 1,0,20, CD, 59,0, F3 
,3a, 87, A8,FE,E, DO 

10030 DA TAd6, F, ED, 44,32, 87, A8, CB, 3f 

,47,E,E,DD,21,2d, 1 

10040 DA TAcd, 5f, 1 , F3 , 3e, O, d3, 99, 3a , 

87, A8, e6, 1, CB, 27, CB 

10050 DA TA27, CB, 27, CB, 27, CB, 27, F6, 4 

0,03,99,21,0, BO, 7E,D3 

10060 DA TA98, 23,7c, FE, DO, 20, F7, C9, F 

3,3A, F8, F7,32,87, A8, FE 

10070 DA TAE, 28, >4, D6, F, ED, 44,87,87, F 

6,3, 1 8,2,3e,3, 47 

10080 DA TAe, 4, DD, 21,2D, 1, CD,5f, 1, C9 
, F3,21,0,20, 1,0 

10090 DAT Al 8, 3e, fO, cd, 56,0, c9,0 


^ 3 ^ 


ØIMFQK HØS 9 

10 'SE ANDEMOR OG HENDES UNGER 
20 'SVØMME OVER SKÆRMEN 
30 ' 

40 JOHNNY B SYNTAXEN 1988 
50 ' KUN MSX 2 

60 ' 

70 SCREEN5,1 

80 DEFINT A-Z:X-0:Y“0:Z“0 
90 DEFFNX® 3 (Z+240) MOD 256 
100 ' 

110 'SPRITE DEFINATION 
120 ' 

130 RESTORE 580:SN-0:GOSUB 440 
140 RESTORE 700:SN-1:GOSUB 440 
150 RESTORE 700:SN-2:GOSUB 440 
160 RESTORE 700:SN-3:GOSUB 440 
170 RESTORE 700:SN-4:GOSUB 440 
180 RESTORE 700:SN-5:GOSUB 440 
190 ' 

200 'LYD 
210 ' 

220 SOUND6,25:S0UND7,37:SOUND8,16:S 
OUND12,63:SOUND13,14 
230 ' 
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240 'TEGN DAM 
250 ' 

260 LINE (0,116)-(255,116),7 
270 PAINT (0,118),7 
280 1 

290 'BEVÆG SPRITE 
300 ' 

310 Y-100 

320 FOR X-0 TO 255 

330 Z-X:PUT SPRITE 0,(Z,Y),,0 

340 Z-FNX:PUT SPRITE 1,(Z,Y),,1 

350 Z-FNX:PUT SPRITE 2,(Z,Y),,2 

360 Z-FNX:PUT SPRITE 3, (Z,Y), ,3 

370 Z-FNXs PUT SPRITE 4,(Z,Y),,4 

380 Z-FNX:PUT SPRITE 5,(Z,Y),,5 

390 NEXT X 

400 GOTO 320 

410 ' 

420 'SPRITE DEFINERING SUBRUTINE 
430 ' 

440 SP$-"":SC$-"" 

450 FOR SI-O TO 7 

460 READ SQ$,SC:SP-0 

470 FOR SJ-1 TO 8 

480 SP-SP* 2-(MID$(SQ$,SJ,1)-"O") 

490 NEXT SJ 

500 SP$-SP$+CHR$(SP):SC$-SC$+CHR$ (S 
C) 

510 NEXT SI 

520 SPRITES(SN)-SP$ 

530 COLOR SPRITES(SN)-SC$ 

540 RETURN 
550 ' 

560 'SPRITE DATA 
570 ' 


580 

DATA 

. . .0_ 

,15 

590 

DATA 

..0.0000,10 

600 

DATA 

...00... 

,15 

610 

DATA 

_OO. . 

,15 

620 

DATA 

..00000. 

,15 


630 DATA 00000000,15 
640 DATA 00000000,15 
650 DATA .000000.,15 
660 DATA 
670 ' 

680 'SPRITE DATA 
690 ' 

700 DATA .0 

710 DATA .0 

720 DATA _O. . . ,10 

730 DATA ...0.000,8 

740 DATA _OO. . ,10 

750 DATA .00..00.,10 
760 DATA .000000.,10 
770 DATA ..0000..,10 


øpbi os w q a m a 

flP ØlLQfflØ ø D 

10 ' ************************* 

20 ' X X 

30 ' X S d i 1 - 15* 

40 " X X 

50"*Bv:Claus B . X 
60 ' X X 

70 "*23/10 -1988 * 

80 " * * 

90 " ************************* 

100 DIMX< 9 ).Y( 9) 

110 CLEAR 1000 
120 ON3TOP6OSUB950 

130 SCREENO:L0CATE7 .6. OsPLAY"U15L43 
T100A#AB#A 

140 CP*="SOI-318":FR=FRE< 0) 

150 IFFR>2G000THENMID*(CP*.6.1)="2 

160 STOPON 

170 A=PEEK<-456)-32 

180 1FATHENPR1NTTAB<9)"Tryk Caps-Lo 

ck"CHR*<30)s GOTO 170 

190 REST0RE530 s FORA=1T09 i READA*.B* s 

X(A)=UAL<"&H"+A*)+38sY <A)=UAL<"kH" + 

B*)+20:NEXT 

200 C0L0R7.1.1:SCREEN2:PRINT:PRINTT 
AB( 3)"Reoler":PRINT:PRINTTAB<3)CHR* 
(91)"J/N"CHR* (93):A*=INPUT*(1) 

210 IFA*="N"THEN230 
220 GOT0670 
230 B=16 

240 COLOR13.1.1:SCREEN 1:FORX=1T08 

250 2=INT< RND(-TIME)*8) + 1 

260 IFA(2)=1THEN250 

270 B (2 ) =X: A ( 2) = 1 

280 GH(2)=B(2):NEXT 

290 IFGH<1 ) =1THENRUN240 

300 60SUB370 

310 F0RC=1T09:L0CATEX(C).Y(C):A*=ST 
R*( B< C)> 

32 0 IFA*=CHR* ( 32 ) + CHR* < 48)THENA*=CH 
R*(32)+CHR*(201) 

330 PRIMTAL:NEXT 
340 IFP=13THEN610 

350 L0CATE90.16:PRINTCP*:LOCATE91.1 
6:PRINTCP* s A=UAL <INPUT* <1)) 

360 G0T043D 

370 LINE<X<1) f Y(i)-8)-(X(9)+B.Y(9)+ 
8) f 15.BF 

380 L0CATE24. 160:M=M+1:LINE< 0.150)- 
(255.170).1.BF 
390 COLOR12 

400 PRINT"Tra":LOCATE40. 160:PRINT"e 

k nr:"M;TAB(4)»:P=-3 

410 COLOR13:F0RU=1T08:IFB(U)=UTHENP 

=P+2 














-so- 
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KJØB/SAL© Se NYE MEDLEMMER **■*■«■ 


BYTTES 

MOLECULE MAN bvttes med eventuelt 
SPIL: 

KING. BMX eller PAC MAN. 

MOLECULE MAN har Lastet 100.00 kr. 
Min computer er en MSX. 

Min adr. er : 

Torben Ravnsbæk 
Fousingvej 2 
Giard i nq 
7570 Vemb 
tit. 07 48 11 05 


S NBHELUELSESBLANKET 


Frø»w: _ 

efternavn: _ 
AIRESSES _ 
TLFNR.: __ 
»STI«« *1YS 

alper: 

nasscine: _ 

UV. tUSTYStS 


INTERESSE QMRAPE: 
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*-■*■■** KØB/SALG fk NYE MEDLEMMER 


ANNONCE 

Lad os udveksle en liste over MSX 
programmer, jeg har ca. 200 stk.. 
Måske kan vi udveksle. låne eller 
bytte. 

Send en liste over dine programmer 
og du vil modtage en af mig. 

Ven lig Hil sen 
Mogens Petersen 
Hovvejen 45 
Marcusminde 
8471 Sabro 



MSX BRUGER-KLUBBEN Q 
KASSERER PREBEN LUND 
HYLDESPJÆLDET 
TØMMERSTRÆDET 19 
2620 ALBERTSLUND 
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*-**■* SVI BIS -****- 


©W 0 EU O O 

SVI BIB er KUN til SVI 318-328 

SVIBIBS’s POSTGIRONR■ er: 

4077385 


Liste a-f programt itler 
i SVIBIB s 


Nyttige programmer : 

Database , Editor , Hushold ,Matte, 
Mc scroll , Rarndis , Rentereg , 
Rulleteks , Screen Rig , Sdump.mc, 
Sorter , Sprite ed , Sprog , 

Tegner , Talkback , Taperut , Tips 
Kalender , Supertegn , Periode 


Bestilling a-f programmer gøres på 
postgiro hvorpå der skrives hvil'ke 
p r o g r amrn e r d u ø n s k e r , s arn t o rn du vil 
have disk eller bånd. 

Husk også at skrive din egen adr. 

tydeligt helst BLQKBQfiSIåVEB^. 


PRISER 

Bånd - 25kr. 

5.25" Disk - 25kr. 

Pris pr. program - 10kr. 

Pris pr. programpakke - 15kr. 

Ud 1 i s t n i ng a-f program - 5k r , 


Programpakkerne er lavet på den 
måde at man loader alle 
programmerne ind på en gang , og 
kan så vælge ved hjælp a-f en meny 
hvilket program man ønsker at køre 
dere-fter kan man stoppe og vende 
tilbage til menyen ovs.ovs. 

HUSK når I bestiller programpakker 
at skrive hvilken katarogi I 
ønsker det pågældende nr. -fra. 

Programmerne bestilles hos: 

Per Underlien 
Rytterhusene 44 
2620 Albertslund 
GIRONR. 4077385 

Programmer der ønskes optaget i 
SVIBIB sker på samme adr. 

Det er jo sådan at vi NU GIVER 
2 bånd eller 
5 5.25" disk . 

For- de programmer der optages- i 
SVI BIB. 

Hilsen Per- 


Spil % 

Aladdin , Bovla, Bjerg, Darts, 
Death, Diktator, Frans, Hell, 
Kalaha, Skyd nu, Oil 

Spil pakker : 

Nr. 1 : Male , Pyramide , Labyrant 
Nr. 2 : Pusle , Attack , Roulette 
Nr. 3 : Flight , Sur- , War 
Nr. 4 : Mons , Hopper , Star 

Nr. 5 ; Moon , Myre , Slange 

Nr. 6 : Robot , Pengo , Snowbal1 
Nr. 7 ; Danmark , Fragger 
Nr. 8 : Skyttepro , Lemona 

Musik pakker : 

Nr. 1 : Rock musik 9 numre 

Nr. 2 : Rock musik 9 numre 

Nr. 3 : Musik 9 numre 

Nr. 4 : Lyd Kim , Sound Kim , Orgel 


Andet pakker : 

Nr. 1 : Rio , Lys , Ghost , Børge 
Syrntri , Grafik 


Kun til disk ! 


SVI BIB 



Budgetpro. , Dbase i no.1 , Grafen 
Tegnepro. , Te 1efonpro. 
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•*■*■*■*• BASIC MED RETER 4HMt* 


BQ8Q® GOSED [PBIPBB 

Du havde forhåbentlig ikke 
alt for store vanskeligheder 
med at finde fejlene i 
programmet i sidste nummer. 

Jeg må indrømme, at der var 
flere end 3 fejl for at 
kravet: At udskrive 

2 -tabellen blev opfyldt. 

Den første fejl man ville 
støde på, hvis man prøver at 
køre programmet, som det var 
gengivet i bladet var en syn- 
taxfejl i linie 40. Det var 
ordet NEXT, der var stavet 
forkert. Det var måske en 
banal fejl, men det viser, 
hvor vigtigt det er, skrive 
så datamaskinen forstår det. 

Tallene der bliver udskrevet 
blot med denne ene rettelse 
har ikke meget med 

2-tabellen, at gøre. Det 
skyldes, at B i linie 20 ikke 
bliver opsummeret med 2 af 
gangen lagt til værdien af A. 
Derfor skal variablen A i 
linie 20 rettes til variablen 
B. 

Erstat derefter kommaet i 
linie 30 med et semicolon. 
Det gør den forskel, at 
tallene nu bliver udskrevet 
efter hinanden i stedet for i 
kolonner. 

Nu bliver 2-tabellen 

udskrevet, men den lille 
tabel går, som bekendt kun 
til 20 og vi retter derfor 
løkkens slut-værdi til 10 i 
linie 10. 

Herefter ser programmet 
således ud: 

10 FOR A = 1 TO 10 
20 B = B + 2 
30 PRINT B; 

40 NEXT A 


Nu vil nogen sige, at det kan 
gøres nemmere. Ja det kan det 
også. 

Ved at forandre linie 10 
således: 

10 FOR A = 0 TO 9 STEP 2 

-tælles A kun op for 
hverandet ciffer 0-2-4-6 osv. 
Dermed bruger vi FOR - NEXT 
-variablen A som "tæller” og 
kan derfor undvære linie 20. 
Selvfølgelig skal B i linie 
30 så ændres til A. 


Nok om det, nu skal vi se 
lidt på næste opgave. Den 
handler om FOR -NEXT lykker 
inden i hinanden. Man kan 
nemlig godt have brug for at, 
en lykke udfører en opgave 
mange gange. Dette er 
tilfældet med næste eksempel: 
Programmet skal udskrive den 
lille tabel. 

Da tallene får flere cifre 
end i 2-tabellen, er kravet 
til een tabel pr. linie ikke 
med - hvis du kører med 40 
tegn pr.linie. 

Her er programmet med 3 fejl: 

10 FOR C = 1 TO 10 
20 PRINT 

30 FOR A =0 TO (C * 10JSTEP A 
40 PRINT A; 

50 NEXT C 
60 NEXT A 

God fornøjelse! 

peter 
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■JMHHt- BREV FRA GOMPETTER -*-**-* 


øbbp? 

SVERIGE OG COM PETTER 

Petter har selv forbedret sin musik 
samt lavet noget mere og Jeg iler 
derfor fluks med at bringe det til 
alle I andre, det er Jo rart når et 
medlem gider sende noget til bladet 
så derfor Tak til Com Petter som er 
herlig aktiv og til alle I andre 
se dog at få den FINGER UD MM! 

Nu til Petters Musik: 


10 CLS 

20 PRINT” JAG VILL HA EN EGEN MANE” 
30 PRINT”#**#*##**#*####*##*##***'* 
40 PRINT”Musik av Ted Gardestad” 

50 PRINT”Text av Kenneth Gardestad” 
60 PRINT”Music Monsters Inc, 88” 

70 PRINT”MSX Version ” 

80 PRINT 

90 PLAY”M450S1304” 

100 PLAY”R8G8G8G8G5G8AB805M1C8C8M45 
0D5R8O4B8B8A8G5A8G8D5C3” 

110 PLAY”R8E8E8E8E5E8FE8M1D8D8M450E 
5R8D8D8D8D8M1C8O3B8O4M450M1C8C1M450 

120 PLAY”R8G8G8G8G5G8AB8M105C8C8M45 
0D5R8O4B8B8A8G5A8G8D5C3” 

130 PLAY”R8E8E8E8E5E8FE8M1D8D8M450E 
5R8D8D8M1C8C8M450O3BO4M1C8C1M450” 
140 PLAY”R4c8c8C5A8B05C8M1D8D8m4500 
4B5R405C8C8CD8C04G8E2R8E8” 

150 PLAY”F5F8FM1ED8M450DDCD8M1FE16D 
16E8E3E2M450R4” 

160 PLAY”R405C8C8C504a8B05C8M1D8D8M 
450O4B5R8O5C8C8D8C8O4GM1E8E2M45OR8E 
8 ” 

170 PLAY”F5F8F8EMlD8D8M450D8C8O3BO4 
M1C8C1C1M450” 


10 CLS:KEYOFF :’Music Monsters 
20 PRINT”TEDDYBJØRNEN FREDRIKSSON” 
30 PRINT”##***#*#**##*##*#******#” 
40 PRINT”by Lars Berghagen ” 

50 PRINT 

60 PRINT”Computensisation by MMI(c) 
88 ” 

70 PLAY”m450sl304” 


80 PLAY”R8F8F8A8E3R8Bl6Bl6B805D8C80 
4B8AR8B8B805D8” 

90 PLAY”C804B8A805C804B3R1R8F8F8A8E 
3R8B16B16B805D8” 

100 PLAY”C804B8AR8B16B16B805D8C804B 
8A805C804A8B3R1R805D16D16D8D8” 

110 PLAY”C804B8BA9B16A8G8F3R8G16G16 
A8G8F8A805D804B16F16” 

120 PLAY”E9E16B8G#8A305R8D16D16D8D8 
C804B8B9A8A9B16A8G8” 

130 PLAY”F3R8G16G16AG8F8A805D904F16 
E8F16G16F8E8M1D3D3M450” 


10 CLS:KEYOFF:WIDTH40 

20 PRINT”SHE * LL COMING ROUND THE MO 

UNTAIN” 

30 PRINT”********##**####**#**##### 
##***#»* 

40 PRINT”BY MUSIC MONSTERS INC.” 

50 PRINT”(C) 1988” 

60 PLAY”m450sl3” 

70 PLAY”D8E8G8G8G8G8E8D803B804D8G3R 
4G8A8” 

80 PLAY”B8B8B8B805D804B8A8G8A3R405D 
8C8” 

90 PLAY”04B8B8B8B8A8G8G8G8E8E8E8E8A 
8G8F8E8” 

100 PLAY”D8D8D8D8B8A8F8D8G203B804D8 

110 PLAY”GGE8D803B804D8G2G8A8BB” 

120 PLAY”05D804B8G8B8A205D8C804BBA8 
B8B8B8” 

130 PLAY”EEA8G8F8E8DDB8A8F8D8G2” 


10 CLS 

20 KEYOFF:WIDTH40 

30 PRINT”BLOWIN’ IN THE WIND by Bob 
Dylan” 

40 PRINT”Computisation by Music Mon 
sters Inc” 

50 PRINT:PRINT”How many times must 
a man walk down, be-fore you call h 
im a man?” 

60 PRINT”Yes’n' how many seas must 
a white dove sail.before she sleep 
s in the sand?” 

70 PRINT”Yes'n' how many times must 
the sannonba-lls fly before they'r 
e for ever banned?” 

80 PRINT”The answer.my friend, is b 
lowin* in the wind,the answer is bl 
owin* in the wind.” 

90 PLAY”T130M450S1303” 






*"**-*- BREV FRA C OMRETTER ■*•*■** 


100 PLAY”G2GGA2AAG2mlEDm450C3EG3GA2 
GF” 


110 PLAY H mlGlG3m450EFG3GGA3AAG2mlED 
mil50C2EG2E" 

120 PLAY ,, F3FEmlDlD3mil50EFG3GGA3AAG8 
G5mlEDm450” 

130 PLAY , 'C2EG3GGA3GFmlGlG2ma50EF3FE 
D2D” 

IkO PLAY’*E8E5EDC2EF3FED8D5C02B03mlC 
1C1” 



10 CLS:KEYOFF:WIDTH37 
20 PRINT”EL CONDOR PASA” 

kO PRINT”Daniel A.Robles,Jorge Mile 
hberg & Paul Simon.Comp. Version 
by : Music Monsters Inc.” 

50 PRINT” 


60 REM I’d rather be a MSX than Com 
modore 

70 PRINT”I'd rather be a sparrow th 
an a snail.Yes I would.If I could.I 
surely would.I'd rather be a hamme 
r than a nail. Yes I would.If I cou 
ld,I surely would”; 

80 PRINT:PRINT”Away,I'd rather sail 
away llke a swanthat's here and go 
ne.A man gets tied up to the ground 
,he gives the world its saddest so 
und.its saddest sound." 

90 PRINT:PRINT”I'd rather be a fore 
st than a Street.Yes I would.If I c 
ould,I surely wouldl'd rather feel 
the earth beneath my feet.Yes I wou 
Id.If 1 only could,I” 

100 PRINT”surely would.” 

110 PLAY”tl50sl3m/i50o5” 

120 FOR 1-1 TO 2 

130 PLAY”o/la05DCDEFEFGAlA306DC05AlA 
R406DC05A1AAGFD1D3F3D1DR4R404A05DCD 
EFEFGA1A306DC05A1AR806D8C8DC05A1AAG 
FD1D3F3D3DR3A” 

1E0 PLAY”06D2CD5C8D5C8D1D3FDC1CCDC0 
5A1A2A” 

150 PLAY”06D2CD5C8D5C8D1DDFDC1CCDC0 
5A1AAGFD1D3R4” 

160 NEXT 

170 FOR Q*=l TO 2000: NEXT 


10 SCREEN0:WIDTH37 
20 PRINT”La Bamba ” 

30 PRINT”****#****" 

kO PRINT”Music and text by Richie V 
alens 

50 PRINT”converted to Music Macro L 
anguage 

60 PRINT”on MSX and SVI by ComPette 
r Computing” 

70 PRINT:PRINT”Pa~ra bai-lar La Barn 
-ba.pa-ra bai-larLa Bam-ba se ne - 
ce-si-ta una po-ca” 

80 PRINT”de gra-cia.un-a po-ca de g 
ra-cia parami para ti ya- a -ri-ba, 
y *a-riba.” 

90 PRINT”Y*a-ri-ba,y'a-ri-ba,por ti 
se-re, por ti se-re,por ti se - 
re.Yo no soy mar-i-ne-ro,yo no soy 
mar-i-ne-ro,soycap-i-tan, soy cap-i- 
tan.soy cap-i-tanBam-ba,Barn,ba. VV: 
Bam-ba, Bamba:VV” 

100 PLAY”T150Mil50O4S13" 

110 PLAY”F8F8F8FFECR3R8F8F8F8FFE8CC 
8CCD803B0/ID8F8ED8E8C5” 

120 PLAY”R3R^F8F8F8FF8E8CC8CCD803B0 
4D8F8ED8ECR3R^R8F8F8FF8e8CC8CCD03BO 
4DFEEC” 

130 PLAY”03AG80/IF8F8F8FFECR3R8F8F8F 
8FFE8CC8CCD03B04DFEEC03AGR4R30EC303 
A3B8G5R3” 

IkO PLAY”vllo4E3CD803B5R3” 

150 PLAY”v5o4E3CD803B5R3” 

160 PLAY”vlo/iE3CD803B5R3” 

170 PLAY”v0o4E3CD8O3B5R3” 

180 PRINT 

190 LINEINPUT”IGEN(J/N)”;Q$ 

200 IF Q$=”J” THEN 230 
210 IF Q$=”N” THEN 240 
220 GOTO 190 
230 CLS:GOTOIO 
2k0 CLS:PRINT”SLUT 
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•**■■**■ BREV FRA eOMFETTER *-*-** 


10 KEYOFFsCLS:WIDTH40 
20 PRINT”STREETS OF LONDON by Ralph 
McTell” 

30 PRINT”MSX/SVI MML by ComPetter” 
40 PRINT”Have you seen the old man 
in the closed down market,kicking u 
P the papers with his worn out sho 
©s? In his ©yes you ae© no prid©,ha 
nd held loosely by his side” 

50 PRINT”,yesterdays paper telling 
yesterdays ne-ws.So how can you tel 
1 me you're lonely.and say for you 
that the sun don't shine? Let 

me take you to the streets of Londo 
n.I'll show you something to make”; 
60 PRINT” you change your mind. ” 
70 PLAY”T120M4 50S1304” 

80 FOR 1=1 TO k 

90 ON I GOSUB 210,220,240,260 
100 PLAY”BBBB05DD304B8A8Q3Q3BB2” 

110 PLAY”EEEGGG3G8G8A3A3B1” 

120 PLAY”BBB05DDDD304GFGBB8O5CO4mlB 

8b3” 

130 PLAY”m450R4EE8G5GG3G8G8D3E8F8ml 
g8glg3r4m450g” 

140 PLAY”05C3CC04BB205DmlD3C3m45004 
BlR4AAA8mlA8am450" 

150 PLAY”E8E8G8F5mlDlDlrn450BB8mlB8b 
8m45005D5DD804mlB8bA” 

160 PLAY”GF8mlG8g5m450A8B5O5CO4BFR4 
EEGGG3G” 

170 PLAY”DD8mlE8em450FG3B8O5CmlD8D3 
m450O4BAG3F8G5Al” 

180 NEXT 1 
190 PLAY”G3” 

200 END 
210 RETURN 

220 PRINT:PRINT:PRINT”Have you seen 
the old giri who walks thestreets 
of London,dirt in her hair and her 
clothes in rags? She's no time for 
talking.she Just k©eps right on w 
alking carrying home in two carrier 
bags.” 

230 RETURN 

240 PRINT:PRINT:PRINT”In the all ni 
ght cafe at quarter past eleven,s 
arne old man sitting ther© on hieown 
,looking at the world over the rim 
ofhis teacup.each tea lasts an hour 
, and hewanders home alone.” 

250 RETURN 

260 PRINT:PRINT:PRINT”Have you seen 
the old man outside th® seaman’s 
mission,memory fading with the med 


al ribbons he wears? In our winter 
city the rain cries a little pity 
,for one more forgotten hero and 
a world doe-sn't care.” 

270 RETURN 



da Jeg lige har erhvervet mig et 
mundstykke til en Trompet fra 
Danmarks Akustiske Musik 
v/ et af vore medlemmer 
Hr Peter Dam tlf 02 290705 
vil Jeg bringe Jer en rigtig 
truttende musikalsk hilsen 
OBS: Mine naboer håber at Jeg 
aldrig får råd til resten af 
Trompeten 

Peter kan levere alt i Akustiske 
instrumenter samt reparere alt i 
blaser© 

Hej fra Johnny B Silkeborg 



- Jeg håber du her tagat handsker 
på - du ved, jeg hader fingeraftryk 
pi lakken..I 
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*-*-•**- MSX BIB -*-*** 


HØS BOB 

Et lille program er det blevet 
til siden sidst. Det er et spil 
kaldet "Thorkild", hvor man er en 
lille loppe der skal forcere et 
antal baner. Spillet er lavet i 
screen 2 (!) og er meget underhold¬ 
ene. Desværre ved jeg ikke hvem der 
er ophavsmand til programmet, men 
jeg tillader mig at sætte det i 
BIB, da det faktisk er ret godt 
lavet. 

Derudover har jeg stadig en 
kasse med original versioner af 
spillet "Knight Tyme" på bånd lig¬ 
gende som igennem BIB sælges for 
kr, 35,- inkl. forsendelse, hvis 
det købes alene og kr. 25,- hvis 
det købes sammen med andre program¬ 
mer i BIB. 

Ønsker du at komme i besiddelse 
af nogle af de ovenfor eller dem i 
nedenstående liste nævnte program¬ 
mer fra MSX-BIB er fremgangsmåden 
som altid: 

Du sætter dig ned og finder ud 
af hvilke programmer du vil købe. 
Derefter slipper du joystikket for 
en stund, går hen på posthuset, 
fatter et giroindbetalingskort, og 
skriver programnavnene på bagsiden. 

Priser: 


15 min. bånd 

- 25 

dkr. 

stk. 

5.25" disk 

- 25 

dkr. 

stk. 

3.5" disk 

- 35 

dkr. 

stk. 

programmer 

- 10 

dkr. 

stk. 


Forsendelses omkostninger er in¬ 
kluderet i disse priser. 

Et bånd kan rumme 8 programmer. 
En disk kan rumme hele biblioteket. 

Eks: 8 programmer på 3.5” disk 

koster 8 # 10 + 35 = 115 dkr. 


Programmerne bestilles hos: 

Kim Andersen 
Fundervej 32 
2610 Rødovre 
gironr. 7 50 87 00 


Jeres egne programmer sendes til 
samme adresse. (der venter stadig 
en belønning i form af bånd eller 
disketter efter eget ønske). 

Kim 


Øvrigt indhold i MSX-BIB: 

- "MSX-Basic-Kun", basic-compiler, 
der oversætter et basicprogram til 
maskinkode resulterende i en meget 
stor hastighedsforøgelse. 

- "Milas", teksteventyr i Milas's 
slot. Rimelig underholdende. 

- "Nim”, det gamle kinesiske pinde¬ 
spil - hvem tager den sidste pind? 

- "Tank", 2-mandsspil hvor man skal 
kanonføde hinanden, 

- "Wall”, 2-mandsspil lignende 
bordtennis. 

- "Seafight", Skyd jetjagere, der 
angriber ens skib. 

- "Fødag”, sig tillykke til din mor 
med et lille grafik/lyd show. 

- "Kalender”, Udregner kalender for 
ønsket år eller ugedag for dato. 

- "Colortrim”, definer nye farver 
mellem 512 mulige. Kun til SVI-738. 

- "Bronski”, spiller Bronski Beat's 
'Smalltown boy’. 

- "Musik”, en lang række kendte 
melodier, bl.a. 'Cavatina'. 

- "R2D2”, tegner det lille kære 
metalvæsen. 

- "Lamborghini”, har du ikke råd 
til at købe en, så se en. Flot! 

- "Lineshow", meget flot demonstra¬ 
tionsprogram med bevægende linier. 

- "Kegle”, vælt den enlige bevægen¬ 
de kegle med din bowlingkugle. 

- "Figflyt", kan flytte og dreje 
figurer du tegner ved at angive 
hjørnekoordinater. Regner nye ud. 

- "Sprite”, tegn din sprite og du 
får hvad der skal stå i data¬ 
linierne. Meget enkelt. 

- "Regression", smart program der 
ud fra indtastede data (koordina¬ 
ter) tegner en tilpasset kurve. 

- "Tegne”, lille tegneprogram med 
de gængse kommandoer. Flot grafik. 






*-**■*■ MSX BIB * KURSIV SKRIFT TIL DOS *■*■*■* 


- "Snak® Vall #y”, æd modstanderens 
hale inden han æder din. For 1 
eller 2 spillere. Rigtig sjovt! 

- "Biorytmer”, afgør hvordan din 
fysiske, psykiske & intellektuelle 
tilstand er d.d. 

- "Chopper", heli koptorspi1 med 12 
baner, incl. designerprogram til at 
lave mange flere. 

- "Ormrun", Char1ottenlund Travbane 
med orme, flot grafik & lyd. 

- "Demo”, oplev hvilke grafiske 
muligheder din MSX indeholder. 

- "Amorti”, regner rente, afdrag og 
restgæld på din afbetaling ud. 

- "Tips”, indtast dine tips (også 
sys.) og prog. viser antal rigtige. 

- "The Maze", lav en labyrint og få 
en anden til at slippe igennem. 

- "Life", tegn et mønster af cel¬ 
ler, og du ser dem udvikle sig. 

- "Sound Maker”, lav den rigtige 
lyd til dit sdpil på denne flotte 
mikserpult. 

- "Halv Tolv”, lige som i Monte 
Carlo, på med pokerfjæset. 

- "Danmark", lær de danske byers 
beliggenhed, flot grafik. 

- "Oil”, bliv olie-sheik på no 
time, sjovt to-mands-spi1. 

- "Puzzle”, sjovt puslespil på 16 
brikker med bevæglige billeder. 

- "Skyd Nu”, skeetskydning som du 
kender det fra 01, hurtig grafik. 

- "Pengo”, det iskolde gys-, klas¬ 
sikeren fra spillehallerne. 

- "Søjle”, behandler tal og stiller 
dem op som kurver el. søjler. 

- "Eliza”, Psykologen hjælper dig 
med kærestesorgerne, på engelsk. 

- "Graf”, tegner en graf for den 
indtastede funktion, brugervenligt. 

- "Kartotek", hold styr på dine 
cassette bånd og programmer. 

- ”Moon Mission”, superlækkert gra¬ 
fik lander program, 5 baner. 

- "Frogrun”, få frøen sikkert over 
vejen og floden. 

- "Dump”, screendump prog. til din 
Epsonkompatible printer. 4 forstør¬ 
relser. 4 gråtoner. 

- "Dbase”, hurtig dbase hvor du kan 
sætte alt i system, indbygget ud¬ 
printningsfacilitet. 


- "Screen Store", kan gemme to 
skærmbilleder og lynhurtig få dem 
frem igen. Kun til 64 k maskiner. 

- "Ram Disc”, arbejd med to pro¬ 
grammer på samme tid. Kun til 64 k 
maskiner. 


EtDSØDØKBQPff 
TFQQ. BØØq 

1 'Hermed en kursiv skrift rutine 

2 'til Dos 

3 1 prg opretter en kursiv.com fil 

4 'Prg er lavet af Stanislav Deja 

5 'Tyskland. 

6 'Public Domain sålænge copyright 

7 'findes i programmet 

8 'Hej Johnny B 

9 ' 

10 DATA 2A,24,F9,11,FF,0,19,11,FO,7 
,6,4,C5,IB,23,DD 

20 DATA 21,4A,0,FD,2A,CO,FC,DF,CB,3 
F,DD,21,4D,0,FD,2A 
30 DATA C0,FC,DF,C1,10,E6,23,23,23, 
23,1B,1B,1B,1B,7A,B3 
40 DATA 20,D8,E,9,11,3B,1,CD,5,0,C9 
4B 55 52 53 49 

50 DATA 56,20,5A,2D,53,61,74,7A,20, 

69,6D,20,4D,53,58,44 

60 DATA 4F,53,2E,20,28,63,29,20,53, 

74,2E,44,65,6A,61,2E 

70 DATA A,D,24,D,FF,FF,FF,FF,FF,FF, 

FF,FF,FF,FF,FF,FF 

80 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF, 
FF,FF,FF,FF,FF,FF,FF 
90 ' 

100 'ÅBNER EN DATA FIL TIL DOS » *. 

COM 

110 OPEN"KURSIV.C0M"F0R0UTPUTAS#1 
120 FORI-OTO &H7F 
130 READX$ 

140 X-VAL("&H"+X$) 

150 PRINT#1,CHR$(X) ; 

160 NEXTI 

170 PRINT"færdig:Kursiv.com oprette 
t 

180 GLOSE 
190 1 

200 'OBS copyright findes 
210 'i maskinkoden 
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BBGS'D'BB PBS 
HBG3BDK 

Renter tænker du, det er da noget 
man får nede i banken. Og du mener 
jo sikkert selv at du er istand til 
at regne renten ud, men det er du 
højst sandsynligt ikke !!! 

Er jeg ikke ??? Siger du. Nix ! 

Du kan jo nok finde ud af hvis der 
nu stod 1000,00 kr. på din bankbog 
den 1.1.87, og de blev stående 
indtil 31.12.87 og intet var sket 
imellem tiden. 

Resultat: 

8 * 1000 * 365 

-- - 80,00 kr. 

365 * 100 


idet formlen for rente regning 
hedder : 

Procent * kapital * antal dage 


årets ant. dage * 100 

det var jo nemt nok, men hvad nu 
hvis der er hævet 117 gange i løbet 
af året og indsat dobbelt så mange 
gange ? Se så bliver det straks 
meget mere kompliceret. Man kan 
bruge flere metoder, men jeg vil kun 
vise en af dem. Denne metode kaldes 
den progressive metode. 

Et af de første problemer er at man 
skal tælle dage imellem de 
forskellige dage, til dette har jeg 
konstrueret et lille program, som 
var meget svært at lave (tak til 
Richard for assistance), dette lille 
program kan tælle dage imellem to 
datoer indenfor samme år !! 
Programmet tager også højde for om 
der er tale om skudår. En lille ting 
er at programmet IKKE tæller den 
første dag med, husk dette. 

I praksis regner man ikke hele tiden 


renten ud i kr. og øre, man benytter 
sig af rentetal. Når det totale 
rentetal for hele året er fundet kan 
det omregnes til kr. og øre. 

Hver enkelt postering på 
kontoudskriften behandles på 
følgende måde: 


Eks: 

På en konto der 3 % P.A (pr. år) 
indsættes der 13.01.86 kr. 22.000,00 
dette beløb får valør (fra den dag 
at beløbet trækkwr rente) d. 
14.01.86 

Først finder vi ud af hvor mange 
dage der er fra den 13.01.86 til 
31.12.86, der er 351 dage 

Nu findes rentallet for denne 

postering, følgende formel bruges: 

Postering * rentedage 


100 


22.000,00 * 351 

- = 77220 rt.nr. 

100 

disse rentenumre er et plus for ham 
de:r satte pengene ind, men hvad sker 
der nu hvis han nu hæver dagen efter 


Eks: 

14.01.86 hæves der 93.501,49 kr. med 
valør samme dag. 

Ja der er stadig 351 dage til 
31.12.88, så vi bruger samme formel 
som sidst. 

93.501,49 * 351 

- = 328190 rt.n 

100 


da dette er en hævning skal der 
egentlig et minus foran. 
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Lad os så se hvad vor person fik ud 
af disse to posteringer 

Post 1.: + 77220 

Post 2.: - 328190 


Ialt - 250970 

Det vil sige at der til nytår venter 
fyren en ubehagelig overraskelse da 
han vil blive tilskrevet en negativ 
rente. 


Lad os omregne dette rentetal til 
hårde kontanter 

RentetaIsaldo * Rentesats 


365 


- 250970 * 3 

- = - 2062 kr. 

365 

Formentlig vil denne negative rente 
være ophævet ved en ligeså stor 
indsætnig på kontoen. 

Synes du at det var indviklet ? 
Overhovedet ikke, hvad så hvis der 
435 posteringer, to forskellige 
rentesatser o.s.v hvilket ikke er 
unormalt i det virkelige liv ja så 
var der noget ved det. 

Før i tiden sad man og regne disse 
ting ud ved hjælp af en gåsefjer og 
et ark papir (og det er ikke løgn 
!!) i dag har man EDB maskinen til 
at klare sagerne, gudskelov for det, 
men nu skulle du selv være istand 
til at kontrollere om banken har 
snydt dig. 


10 '.DAGEBERE6NING KELLEM 2 DATOE 

R 

20 COLOR 15]1,1:HIDTH 40iCLS 
30 OM 0(12) 

40 INPUT "Fra Datos";F$ 

50 INPUT "Til Datos"|T$ 

60 A*=RIGHT$(F*,2) 

70 D$=RI6HTt(T4,2) 

80 BNUD*(F*,3 t 2) 

90 E$»MID$(T*,3,2) 

100 C$=MID$(F$,1,2) 

110 F$*MID$(T$, 1,2) 

120 Ai=VAL(A$) 

130 A2=VAL(Dt) 

140 H1=VAL(B») 

150 H2*VAL!E$) 

160 D1=VAL(C$) 

170 D2=VAL(F$) 

180 'BEREGNINGER 
190 GQSUB 340 
200 ANTAL=0 

210 ’.DER CHECKKES FOR SKUDAAR 

220 IF A1/4=INT(A1/4)THEN MARK=1 

230 ’.BEREGNINGER STARTER HER 

240 YOA2-A1 

250 IF YOO THEN LOCATE 0, lOsPRINT "DET 
TE PROGRAM UDREGNER KUN ANTAL DAGE IN 
DEN FOR ET R"sF0R T=1 TO lOOOsNEXTsCLSs 
GOTO 30 

260 IF H1=M2 THEN 310 
270 FOR W=M1 TO H2-1 
280 ANTAL=ANTAL+Q(W) 

290 IF M AND MARK=1 THEN ANTAL=ANTAL+ 

1 

300 NEXT N 

310 ANTAL=ANTAL+D2-D1 

320 PRINT:PRINT"mm"|ANTALj"»»m" 

330 END 

340 FOR 01 TO 12 
350 READ F:Q(C)=F 
360 NEXT C 

370 DATA 31,28,31,30,31,30,31,31,30,31, 
30,31 

380 RETURN 


Henrik Larsen 










Capeom 

Gunsrnoke ~ det vilde vesten er blevet 
endnu vildere, som sherif kan du kun 
stole på dig selv, og skyde banditer- 

ne før de rør sig; i"western.byen, 

ved jernbanen, i"bjergslugten bg på 
floden de er alle vegne 1.44, 

Code Masters 

Bmx Simulator -• Fuld fart frem gennem 
grusbanen, kør din modstander“i sænk 
inden han gør det mod dig, 1/2 spi« "3$., 

Al ternat i ve; 

Banqer Mousse In Black Forest Chat eau ; 
ad vent ure i to dele Siv' 


Hole in One Professionel - bedste golf, 

2 baner rn. hver 18 huller + lav egne_ _ 
baner, i/2 spillere 277«. 

Hole in One Special - MSX2, 2 sæt 18 
huls baner. .18 golf køl ler s 3 spil¬ 
typer for 1/2 spillere, 128K 295.- 

U.S.. Gold 

lOth Frame -- bowling for i til $ spil., 

med korrekte regler og rn, bl a, mulig. 

hed for at skrue kuglen 68,,-- 


Aaekosoft 

30 MSX Hits . Stor Aackosoft program. 

'samling: ‘The Helst, Skooter„ Sorcery, 
BouldefDash I & II, Musix, Oh Shit, 
Beach Head,pMastervoice, Spy vs, Spv, 
Oils well, Polar Star, Confuseri^ 

+ mange flere 

1 n smH p Liltsi '’9'-n 

Red Light of Amsterdam . strippoker med 

■flotte video d ig ital iserede billeder, 
f o r li S X 2 c o m p u i. i r e 


Wor j. d (3arner 
dyste i < 
vægf 1 øfti 
udspring 
rulning, 
"kastning 
fra Epyx 


i . i uju I i oden ruiuff fen at 

3 rspecielle sportsgrene? 
ung, tøndespr i nq på skøjter 1 ', 
fra klipper, slalom, tømmer 
t y r e r i d n i n g r o ri e o, i: ø rn rn e r 

og surnobrydning .’ sportsspil 

m r d s 1 o r v a r i a t i o n 14 4 „ 


2 mag ine 

Basket. Mats teer.- Bliv på tæerne mens du 

dribler bolden ned af banen med mod-. 

standeren lige i hælende, med en 
rolig hånd og et sikkert øjemål kast 
bolden rnod kurven. Forsvar din sone, 

: uf: i ■ - ;.I i' i: •.! nnnc-v r i - c 3 ; i ' :l .■ ■■ i. 1 db 
spring og dunk bolden gennem nettet, 
t (hin* hf vægr I st i S, < Jow motion 
geni nnui se , Fnr \/7 fc 


Firebind 

Elite - det store inter galaet iske rum. 

eventyr i 31) vektor.grafik, naviger 

og land på nye planeter, bekæmp rum- 
pirater som v i 1 g i ve dig et rygte sorn 
toppen af eliten, en fin blanding af 

action og strategi, fyldig baggrunds. 

historie og instruktioner 

' k a s s e 11 e 2 i 5. - , d i s k 249 <. 

Endurance Sames 

International Karate ■- karate hele 

jorden rundt, for .1/2 spillere 68.- 


Co 1 osus Chess 4,0 - bedste skak, 31)/21) 
synsvinkel, fortryd træf , dernospi 13 
opstil brikker, replay, variabel 
sværhedgrad, den dygtigeste computer 
modstander (rating I850+ELO), program 
engelsk tekst, hollandsk instruk, 144.- 

Mirrorsoft 

Tetris - ikke helt som andre puslespil, 
br il, 

være hurtig in tab ikke uvntblikt el, 


Kuma 

The MSX F(ed Book . g i ver alle oplys. 

immer om MSXs interne opbygning, et. 
“mest" 4-nr 4 l U rnu<4 11 4 do hnkne !4S„. 

5,, 25/ neutral disk, 2 sulet, 20 stk„ Ilo,. 

3,5" neutral diéJt| ’2 sidet, 10 stfe* 140.-- 


Alifii priser er Inkl. dansk moms« Forbehold 
for trykfejl, pr isændringer og udsolgte 
varer, ' 8RATIS forsendelse véd forud- 
b e t a I i n g rn e c.1 c h e c I / g i r o. B e s t i 11 i n g e r 

u n d f r k r „ 10 0 „. t i 11 æ g g e si cl o g k r * 2 0. - 

c I pod il t ut isgtdiyi*« 

Salg til hele Skandinavien, Ved køb fra 

i 1 C i i 1 i :>å 

et pc 1 c kny I , c4i ' Iriv hvad du ønel er 
pa bugne len. 

hn,t p u vorun nye Uprr (fl 22 2/ 4 inuit fem 

16--S0' mandag til lørdag, eller rend check 
< I lin en giro på gironr. 345 96 32 med 

dine bi * t i i 1 i uge [ipl/ evl , Iclclnnnr, 






